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Introduction 


BASIC has come a long way since its first days at Dartmouth 
College in 1964, when because of its simplicity it helped students 
to learn about the computer. It has evolved in two stages. The first 
stage occurred in the early 1970’s when minicomputers became 
standard fixtures in many small business, scientific, and educational 
environments. At that time BASIC became more than a curiosity. 
Because of its expanded features, particularly file management, it 
began to appear as the application language of choice for the 
popular minis. 

The second stage of BASIC’s evolution is occurring right now, 
at the turn of the decade. The popularization of the microcomputer 
in the last three years of the 1970’s has resulted in BASIC being the 
de facto standard as a high-level language for these new devices. 
Remember that minis were used primarily in small businesses, 
scientific labs, and schools. The micros have come into the home, 
and BASIC has come with them. Suddenly the phrase "computer 
power to the people” means something tangible to millions of 
individuals. The decade of the ’80s is going to see a substantial 
fraction of the public actively involved in developing programs for 
their acquisition, and most of these programs will be written in 
BASIC. 

All this is fine, as long as this tool is used for its intended 
purpose, that being to entertain, educate, calculate, and manage 
files. However, many purchasers of microcomputers will bring it 
home, play a few games of Blackjack, Chess, or Star Trek, and 
perhaps maintain a recipe file. This is not enough. These devices 
are more powerful than the milhon-dollar computers of the 1960’s, 
and to use them only for such trivial tasks is to waste their true 
potential. It’s as if you were to buy a TV set and leave it tuned to 
just one channel. Microcomputer power should be explored and 
exploited to its fullest, and one way you can do so is to use it for 
more than repetitive execution of one or a few programs. Program 
it yourself. 

As educators we have exposed many students to the joys of 
computer programming, and we are continually surprised at the 
variety of people who exhibit a talent for this science, or art, or 
craft. No general rule seems to apply; programming talent seems to 
appear in a fairly large and unpredictable segment of the population. 
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The microcomputer revolution will add greatly to the growing 
numbers who know how to write programs. A few of these people 
will become excellent programmers. Our aim with this book is to 
increase the ranks of better programmers by exposing them to some 
techniques for solving problems that are commonly found in a wide 
variety of applications. 

When you write a program, remember that you must consider 
three different points of view. 

1. The progrummcT is the originator of the program, its creator. 
In many situations, you will find no existing program that 
even remotely begins to solve your problem. This is when 
your skill as a programmer is tested to its fullest. You are 
most of all a problem solver at this stage, and your major 
task is to decide on the method of solution, or algorithm, 
for your problem. 

2. The reader of your program is very possibly also its author, 
but may also be someone else who wishes to adapt it to his 
or her own application. A program s reader must 
understand the fundamentals of the language about as well 
as the programmer, but is rarely involved in its original 
creation. The remarks in a program are intended for its 
reader. During your program’s development, you are also 
its reader, and you can use the remarks effectively to remind 
you of the program’s logic or to help modularize it for easier 
alteration. 

3. The user of your program is the intended target for its 
application. Usually, that person is naive about computers 
and programs. The program, its advanced techniques, and 
its wealth of remarks are lost to the user. But you, the 
programmer, must always keep the user in mind. Here’s one 

' of the few general rules that has no exceptions. All well 
written programs are easy to run. 

The programs, program segments, and examples contained 
within this book have been tested on a Radio Shack TRS-80 Level-II 
system with one minifloppy disk drive. The listings were produced 
on an Integral Data Systems Model 225 printer. We have purposely 
oriented this book toward the TRS-80 for the following reasons. 

1. The TRS-80 is one of the many microcomputers that use 
Microsoft BASIC, which is fast becoming a standard of 
comparison for performance and for variety of extensions. 

2. The TRS-80 as of this writing is the most popular 
microcomputer for personal use, and its Level II BASIC is a 
subset of the BASIC that is implemented on its bigger 
brother, the TRS-80 Model II. The Model II gives all 
indications of becoming a very popular small business 
computer. 

3. The TRS-80 does not have a color display monitor, so its 
BASIC does not have the variety of commands to manage 
that aspect of output. This may seem to be a disadvantage. 
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but the fact is that of all of the sets of BASIC commands 
that are available on microcomputers, those that deal with 
color displays are the least standardized. 

4. The TRS-80 has a wide range of available peripheral 
equipment. In addition, the TRS-80’s popularity has 
prompted many peripheral manufacturers other than Tandy 
to produce competing hardware, including hard disks with 
capacities on the order of 20 million characters. 

We hope that you will try out all of the features that are 
discussed in this book. Your reward will be a deep understanding 
of both a fine computer programming language and some excellent 
programming techniques. 
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Decisions and The IF—THEN and the GOTO are certainly simple to learn and 

Branching understand, but as a person improves in programming techniques, 

the limitations of these statements become a real burden. This is 
where the extensions to the language are particularly rewarding. 
They are very easy to learn and use, and they make any program 
easier to read. 


IF—THEN—ELSE Primitive BASIC is limited to having just a line number 

following the THEN, for example: 

300 IF X=A THEN 820 


This restriction leads to awkward programs full of GOTOs 
that force the reader to jump around from one line of code to 
another. This process of bypassing some hnes and tracing the 
program in various sequences tends to frustrate both the programmer 
and the reader. As an example of this poor, and all too common 
type of programming, look at the program below: 
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10 'FILENAflEt ''ClPl" 


20 

30 

40 

50 


'function; to find largest of 

' AUTHOR ; JPG 

DATA Ij2»3jly3j2f22?llf33?22? 

'reed three values froni dele 


3 NUMBERS (POORLY STRUCTURED) 
date; 12/7? 

33»11»35?15?25?35s25?15?0!0?0 

hlocK 


60 READ AfB»C 

70 IF A!|:B!r.C=0 THEN 10000 


80 'checK to see if A is lerdesl 

?0 IF B > A THEN 130 

100 IF C > A THEN 170 

110 L = A 

120 GOTO 190 

130 'checK to see if B is lerdesi 
140 IF C > B THEN 170 
150 L = B 
160 GOTO 190 

170 'here we Know ihet C is Tersest 
180 L = C 

190 'print the value of L? it is the lerSest 
200 LPRINT Lj ms THE LARGEST OFM A? Bl C 
210 GOTO 60 
10000 END 


3 I 

r- 

D 

THE 

LARGEST 

OF 1 2 

3 


3 I 

0 

THE 

LARGEST 

OF : 

3 

2 


-y "v 

oo 

IS 

THE 

LARGEST 

OF 

22 

11 

33 

33 

IS 

THE 

LARGEST 

OF 

22 

33 

11 

35 

IS 

THE 

LARGEST- 

OF 

35 

15 

25 

35 

IS 

THE 

LARGEST 

OF 

35 

25 

15 


*Note: The LPRINT command is used here and throughout the 
book whenever we wish to show the program’s output. To 
run the program on your computer and have the output 
appear on the screen, just change all LPRINT commands to 
PRINT. 

The program ClPl is difficult to compose, to trace, and to 
debug. Extended BASIC lets the programmer instruct the computer 
to do something after finding out that the condition is true, instead 
of just branching somewhere else. Look at this rewrite of the same 
program. 
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10 'FILENAHES "C1P2" 

20 'FUNCTIONI TO FIND LARGEST OF 3 NUHBERS <BETTER ) 

30 ' AUTHOR I JPG DATEt 12/79 

40 ' 

50 DATA I»2f3»lf3f2j22jll?33»22j33»ll!35f15?25^35?255l5f0j0»0 
60 'reed three values from dale blocK 
70 READ AfBfC 

80 IF A!|cB!i:C=0 THEN 10000 

90 ' store the iardest in L? then print L 

100 IF A>B THEN IF A>C THEN L=A 

110 IF B>A THEN IF B>C THEN L=B 

120 IF OA THEN IF OB THEN L=C 

130 LPRINT LJ "IS THE LARGEST OF"» A5 BJ C 

140 GOTO 70 

10000 END 


Notice that the decisions in this program have no branches. Each IF 
statement checks the truth of a pair of conditions, and the value of 
L is set when both conditions within the same statement are true. 

But extended BASIC has even more. The THFN clause may be 
followed by another clause, called the ELSE clause. The resulting 
compound statement allows the programmer to specify one statement 
to be executed if the condition is true, and another statement if the 
condition is false. 


50.'if discriminant D of auadralic eauaiion is non-nedative? 

60 'then compute end print the roots? otherwise print the 
70 'message? "NO REAL. ROOTS" 

80 D=B*B-4^A#C ' calculate the discriminant 
90 D2=2^A ' calculate denominator of auadratic eauation 
100 IF D>=0 THEN PRINT "R00TS="?(-BSSQR( D } )/D2?(-B-SQR<D) )/D2 
ELSE PRINT "NO REAL ROOTS" 

110 ' 

120 ' 

200 'let user stop or proceed? but accept only YES or NO answer 
210 PRINT "DO YOU UANT TO GO ON <ANSWER YES OR NO)"? 

220 INPUT A$ 

230 IF Af="N0" THEN STOP 

ELSE IF AK>"YES" THEN 210 
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Logical Operators 


This feature allows more English-looking conditional statements 
by the use of OR, AND, and NOT operators. 


10 'if A is less then B end A is less then C? 

20 ''then print A es the saeliestf ^ 

V) IF A-'B AND ACC THEN PRINT A? "IS SHALLEoT 

^•■^.Crcn np OR A$="0K» THEN 500 


A/> TC 


Program C1P3 shows how much more readable these logical 
operators are in a program, as opposed to nested IPs or an abundance 
of GOTOs. 


10 'FILENAHEl “C1P3” 

20 'FUNCTION! TO FIND LARGEST OF 3 NUHBERS (BESi J 
30 ' AUTHOR ! JPG DATE! 12/79 

50 DATA I,2»3,l,3r2»22,llf33»22»33»ll»35a5,25»35.25,15»0,0,0 
60 'reed three veiues froifi dete blocK 
70 READ A?B?C 

80 IF AHcB*C=0 THEN 10000 _ . 

90 'find end print the lerdest all in one i>uot 

100 'note thet the prodrem occupies fflore spece in meirtory? 

110 ' but its operation is very deer. nr-.. 

120 IF A>B AND A>C THEN LPRINT AJ "IS THE LARGEaT 0FjA^.!.L 

130 IF B>A AND B>C THEN LPRINT B? "IS THE LAF^GESl , 

140 IF OA AND OB THEN LPRINT Cl "IS THE LhRGcdT OF 5h?B»L 

150 GOTO 70 

10000 END 


3 IS THE LARGEST OF 1 2 3 
3 IS THE LARGEST OF L 3 2 
33 IS THE LARGEST OF 22 11 33 

33 IS THE LARGEST OF 22 33 11 

35 IS THE LARGEST OF 35 15 25 

35 IS THE LARGEST OF 35 25 15 


The logical operators AND, OR, and NOT can be used for 
Boolean logic operations. Study this statement: 


10 ' 


=.et A to TRUE < "1) if both conditions are truej 

otherwise to FALSE (0) 


20 A=(X=Y) AND (J>0 ) 


4 
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The parentheses around each of the conditions are necessary to 
isolate the conditions from the assignment of the answer to A. 


10 ■'Bsi the fi 5 £; V to TRUE if A is not less then B 
20 A<B) 


This statement sets V to true (-1) if the statement is true; that is, 
the value of A is not less than B. Notice that the statement 

10 V:=(A>-B) 


does the same thing, and it is perhaps clearer. 

There are some applications for using purely logical operators. 
Remember that in these cases the values in question are stored by 
the computer as either true (-1) or false (0). Such applications lead 
to statements like these: 


10 


be' I- 5 


if X is 0 end vice ver-ss 


20 

30 


P=N0T(X) 

IF J THEN PRINT "TRUE” 

IF N0T(A AND B) THEN PRINT "NEITHER IS TRUE" 

IF <A OR B) THEN PRINT "EITHER ONE OR BOTH IS TRUE" 


A third possible application of logical operators is in bit 
manipulation or bit comparison. This could be used in a program to 
identify the positions of the 1-bits in any variable, in effect 
representing it in binary form. The program C1P4 exemplifies the 
problem, converting the variable X that the user input to its binary 
representation. The test value T starts at the value 16384, which is 
two to the fourteenth power. Each time through the loop in lines 
100-150, T is reduced by a factor of two, in effect shifting the 
single one-bit to the right one position. 


10 'FILENAME! "C1P4" 

20 'FUNCTION! DISPLAY LAST 15 BITS OF INTEGER X 
30 ' AUTHOR ! JPG DATE! 12/79 

40 ' 

50 ' set t to be the first (IsrSest) power of 2 
60 T=16384 

70 PRINT "WHAT INTEGER DO YOU WISH CQNUERTED (0=STOP)"1 
80 INPUT X 

90 IF X=0 THEN 10000 ELSE LPRINT X? "IN BINARY IS "? 
100 FOR 1=1 TO 15 

110 ' iso’ ^le the sinSle hit front X 
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120 B=T AND X 

130 IF B>0 THEN LPRINT "1 ”? ELSE LF'RINT "0 "j 

140 T=T/2 

150 NEXT I 

160 LPRINT 

170 GOTO 60 

10000 END 


1 

IN 

BINARY 

IS 

2 

IN 

BINARY 

IS 

15 

IN 

BINARY 

IS 

3456 

IN 

BINARY 

IS 

32767 

IN 

BINARY 

IS 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

1 

1 

0 

0 

0 

1 

4 

1 

0 

1 

1 

0 

0 

0 

0 

0 

0 

0 

1 

•» 

1 

1 

1 

•f 

i 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


Some of the effects of binary operations using the logical 
operators can be very misleading. You should study the explanations 
of these operations in the Level II Manual. We include the examples 
below more for completeness than for clarification. We suggest that 
you use these operations only if you feel comfortable with binary 
representation of values in the computer. 


Instruction Output 


10 LPRINT 0 AND 0 0 
20 LPRINT 0 AND 1 0 
30 LPRINT 1 AND 0 0 
40 LPRINT 1 AND •! 1 
50 LPRINT 0 OR 0 0 
60 LPRINT 0 OR 1 1 
70 LPRINT 1 OR 0 1 
80 LPRINT 1 OR 1 1 
90 LPRINT NOT 0 -1 
100 LPRINT NOT -1 0 


ON-GOTO and These closely related branching statements allow a great deal of 

ON-GOSUB flexibility when a program needs to perform a multiple-way branch. 

They both use a variable after the ON, and a series of line numbers 
after the GOTO or GOSUB. The integer value of the variable is 
calculated, and a branch is taken to the first statement if the variable 
is 1, the second if 2, the third if 3, and so on. On the TRS-80, as on 
most other computers, if the integer value of the variable does not 
correspond to the position of a given line number, the statement 
following the ON-GOTO or ON-GOSUB is executed. 

Example: 

50 ON X GOTO 80» 300r 750? 10? 80? 900 
60 ' fsil through if X<0 or X>6 
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The computer obtains the integer portion of X, which must be 
between 0 and 255. 

then the computer branches 
to this line number 
ERROR MESSAGE 
60 (the next line—no branch) 

80 
300 
750 

10 (notice that the line numbers do not 
need to be in order) 

80 (notice that the same line can be 
reached with different values of X) 
900 

60 (the next line—no branch) 

ERROR MESSAGE 


If the integer 
portion of X is 
<0 
0 
1 

„ 2 

3 

4 


6 

7-255 

>=256 


You could write the equivalent of line 50 above without use of 
an ON-GOTO like this: 


50 

IF 

INK 

X)= 

--1 

THEN 

80 

51 

IF 

INK 

X)= 

=2 

THEN 

300 

52 

IF 

INK 

X)= 

=3 

THEN 

750 

53 

IF 

INK 

X)= 

=4 

THEN 

10 

54 

IF 

INK 

X)= 

-5 

THEN 

80 

55 

IF 

INK 

X)= 

=6 

THEN 

900 

60. 

f t 1 

fr fr fr »■ 

♦ 4 i 

r 4 1 




If the word GOTO was replaced by GOSUB, the multiway branch 
would become: 


50 ON X GOSUB 80? 300? 750? 10? 80? 900 
62 'fell through if X<0 or X>6 


which is equivalent to: 


50 

IF 

INT(X)=1 

THEN 

52 

IF 

INKX)=2 

THEN 

54 

IF 

INKX)=3 

THEN 

56 

IF 

INT(X)=4 

THEN 

58 

IF 

INKX)=5 

THEN 

60 

IF 

INT(X)=6 

THEN 

62 

4 4 4 

444444444 



GOSUB 

80 1 

GOTO 

62 

GOSUB 

3001 

GOTO 

62 

GOSUB 

7501 

GOTO 

62 

GOSUB 

10 t 

GOTO 

62 

GOSUB 

80 J 

GOTO 

62 

GOSUB 

900 
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Obviously the economy of the ON—GOTO and ON—GOSUB 
makes them very attractive to any programmer who has this kind of 
branching to perform. 

One nice application of these statements is in a branch that is 
based on the sign of a number. Suppose your program must branch 
(with either a GOTO or a GOSUB) to line 50 if the value of X^4=0, 
and to line 150 if XM is positive. Either one of these statements 
would do it. 


20 ON SGN(XfX-4H2 GOSUB 50» 100» 150 
20 ON SGN(XSX-4H2 GOTO 50» 100? 150 


This three-way branch uses the fact that the SGN function evaluates 
its argument, and returns a -1 if the argument is negative, 0 if it is 
zero, and+1 if it is positive. 

In this chapter, we have explored a few of the many extensions 
that provide flexibility and make the programmer’s job easier and in 
many ways more enjoyable. 


8 


Chapter 1 Decisions and Branching 




Statements and 
Functions 


Language features such as multi-statement lines, RANDOM, 
DIM, string functions, and many more are incorporated into 
extended BASIC to make the programmer’s job easier and to 
provide problem solving power seen in other high-level programming 
languages. This chapter explores these extensions and suggests some 
possible applications. 


Multiple Statements Because the variable names in primitive BASIC are limited in 

on a Line size to no more than three characters, many BASIC programs take 

on the appearance of one long list of tiny statements down the left 
side of the screen. This is somewhat inconvenient when the screen is 
limited to displaying 16 lines, as on the TRS-80. 

Fortunately, most BASICs allow more than one statement on 
a given line. The Microsoft Company (Bellevue, Washington) has 
been a leader in developing languages for microcomputers. Many 
microcomputers, including the Apple-II and the TRS-80, use some 
version of BASIC developed by Microsoft. For a full comparison of 
two popular BASICs on microcomputers, see Appendix A. All 
versions of Microsoft BASIC, including the TRS-80’s Level II, use a 
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colon (:) to separate statements, but some other BASICs use other 
symbols. For example, DEC’s BASIC-PLUS that is used on the 
PDP-11 series of computers uses the backslash (\). We will use the 
colon because it is used by Level II BASIC on the TRS-80, and it is 
also the most common statement separator for microcomputers. 


10 Z=0t Y=ll P=3*141591 E=EXP(1) 

20 IF I<20 THEN GOTO 20 

30 IF J1>J2 THEN T=J11 J1=J2: J2=T 


Note that these examples do not necessarily improve the 
readability of the code. In many cases where multiple statements 
are crowded into one line the readability suffers as far as the 
understanding of the program logic. This problem is often alleviated 
through indentation and logical grouping in its multistatement lines. 
Consider the two examples that follow; 


90 'crowded 
95 ' 

100 
110 
120 


esves SFBce 


Bl the cost of resdebiliiy 


PRINT! PRINT "WHAT ACTIVITY (0=STOP)"? ^ ^ 

INPUT A! IF A=0 THEN STOP ELSE ON A GOTO 200? 300? 400 

GOTO 100 


90 

95 

100 

no 


'belter — Hiulliple 
to nisin Is 
PRINT! PRINT "WHAT 
IF A=0 THEN STOP 
ELSE ON A 


elsienient lines chsnded to 
in iodicsi flow of prodrsni 
ACTIVITY (0=STOP)"?! INPUT 

GOTO 200? 300? 400 


120 GOTO 100 


A 


In the first example, the IF statement is crowded into the same 
line as the INPUT, while in the second example, the IF statement is 
isolated and indented for high legibility, and the INPUT is relocated 
with the output to produce one line that generates the message. 

Note that statement 110 has a line feed (f) after the word STOP 
instead of a carriage return (ENTER). This allows statement 110 to 
be spread over two lines, greatly improving the overall readability of 
the program. 


RND Function 
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The RND function is commonly found on primitive BASICs as 
well as the extended versions of the language. Usually, its argument 
is immaterial or even omitted, and its purpose is to return a pseudo 
random number between zero and one. A pseudo random number 
differs from a truly random number in that the former is produced 
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RANDOM 


by an algorithm that uses a seed value to generate a number 
apparently at “random”. For various reasons, most pseudo random 
number generators use a large prime number as a seed for the first 
random value, then use that random value, or some modification of 
it, as a seed for the second value, and so on. 

Level II BASIC on the TRS-80 is similar to most BASICs in that 
if the RND function call uses 0 as an argument, the returned value is 
a positive real number between 0 and 1. 


10 'rendoHi nuffibers between 0 end 1 
20 ' 

30 FOR 1=1 TO 5: LPRINT RNIKO)?: NEXT I 
10000 END 

.988032 .64224 .047616 .0655122 .423838 


A useful extension to this function is its ability to return a 
pseudo random integer within a given range. You can return 
random integers between 1 and 6 with the function call RND(6) 
which might be used to simulate the throw of one die. 


10 'rendom integers 
20 ^ 

30 LPRINT "1 TO 6”ji "1 TO 10"? "1 TO 52”» “0 TO 1" 
40 FOR 1=1 TO 10 

50 LPRINT RND(6)j RNEKIO)? RNEK52}? RND<2)-1 
60 NEXT I 
10000 END 


1 TO 

6 1 TO 10 

1 TO 52 

0 TO 

4 

5 

30 

0 

6 

5 

49 

0 

4 

8 

11 

1 

3 

o 

7 

0 

5 

9 

41 

1 

5 

5 

29 

1 

2 

10 

38 

1 

2 

T 

A. 

50 

1 

5 

3 

25 

0 

6 

8 

48 

0 


A feature of pseudo 

random number generators is that the 


mitral seed is always the same. If you turn off the computer, then 
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DIM and 

Subscripted 

Variables 


10 

'FILENAME: 

H r- ‘"7 O -3 55 

L- jC.. i J- 

9(5 

'FUNCTION; 

GENERATE 

30 

' AUTHOR : 

JPG 

40 




REPEATABLE RANDOH HUMBER'S 
date: 12/79 


50 FOR I = 1 TO 50 
60 LFRIHT RND(IOOO)? 

70 'return the CorriBsJe efier every lOih value 
80 IF INK I/IO )f-10=I THEN LPRINT 


90 NEXT I 



10000 

END 



368 

72 

219 

825 

912 

844 

856 

153 

500 

199 

519 

“T EF 

219 

470 

92 

866 

655 

528 

976 

907 


52 

891 119 

981 

911 

616 

324 

550 271 

53: 

2 832 

409 

83 

62 688 474 

736 2 

92 

677 

290 178 

867 

173 

697 

798 

31 866 

266 

234 

53 


The purpose of the RANDOM statement is to seed the 
generator with a different value, based on some varying internal 
value in the computer. Add a new line 

45 RANDOH 

and run the program after turning off the computer and then 
powering it back up. Notice that the output is different. 


250 669 426 63 16 733 905 368 147 718 

255 913 75 201 849 823 798 494 334 705 

731 820 860 689 321 232 73 232 405 287 

840 658 317 465 741 461 752 345 299 345 

370 523 966 29 162 285 858 787 552 31 


BASIC is not limited to managing its variables in memory one 
at a time. It can allow the programmer to set up lists and tables in 
memory by name, and access specific positions of those lists and 
tables by using subscripts. 

The DIM statement does two things; 

(1) It names a list or table. 

(2) It sizes that list or table. 

Examples; 

10 DIM A(50) 

The variable named A is a list 50 values long. 


12 


20 DIM X(50»20) 
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The variable X is a table with 50 rows and 20 columns. 
30 DIM Ml$(30) 

The string variable VI $ is a list of 30 strings. 

Most people call dimensioned variables arrays, so that a list is 
called a one-dimensional array and a table is a two-dimensional 
array. 

The statement 
10 DIM X(5 j7,2) 

creates a three-dimensional array. You can imagine it as a cube 
with 5 rows, 7 columns, and 2 ranks. 



Most microcomputer BASlCs, including Level II for the TRS-80, 
allow the creation of arrays with multiple dimensions. 

When a program refers.to a particular element of an array it 
does so by subscript. In mathematics, a matrix element is referred to 
by its subscripts, such that the matrix A has an element A- •. 

In BASIC, a true subscript cannot be written below tlie line, so 
it is parenthesized. Thus the programmer can refer to the seventh 
element of the one-dimensional array X as X(7). 

Examples: 


10 

20 

30 


DIM A(5f20) 'set up the array» 5 rows» 20 columns 
A(li-12)=50 'piece the value 50 in row 1? column 12 
A(2»20 )=A(1»1) 'copy row 1> col* 1 into row 2» col* 
^“3* Y=7* A(X!rY)=8*3 'place the value 8*3 in row Zt 
'set all values to -1 

FOR 1=1 TO 5; FOR J=1 TO 201 A<I,J)=-1J NEXT Jf I 


20 

col * 7 
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Notice in line 10 the use of the apostrophe as a substitute for the 
REM to denote a remark. Also notice in line 20 that the apostrophe 
does not have to follow a colon to start a remark in the middle of a 
line. These niceties allow more flexibility in the practice of writing 
rdTi3.rks 

One common use of multiply subscripted arrays is in the 
statistical analysis of polls and questionnaires. Suppose these are t e 
characteristics that one wishes to analyze: 


Characteristics 


Number of possible responses 


2 (male and female) 

3 (under 20, 20 to 50, over 50) 

5 (Pacific, Mountain, Midwest, 
South, Atlantic) 

3 (Republican, Democratic, 

Other) 

5 (Strongly disagree, disagree, 
no opinion, agree, 
strongly agree) 

Now suppose that 50,000 observations are made all over the 
country, and that they are encoded as numeric values. For example, 
the coded response 13225 represents a male more than 50 years old, 
Uving in the Mountain states, a Democrat, whose answer was 
“strongly agree”. The encoded value is generated this way: The 
response to “sex”, a 1 or a 2, is multiplied by 10,000. The age 
response is multiplied by 1000 and added to the previous number, 
10,000 or 20,000. The remaining three responses are multiplied by 
100, 10, and finally 1. The resultant integer sum hes between 11,111 
and 23,535. NoteThat this encoding scheme won’t work for polls of 
6 or more questions, or with 5-question polls in which the first 
response is greater than 3. An interesting challenge might be to 
develop a coding scheme in octal integer representation, which would 
allow values of 37777, or even 77777. 

The results of the entire poll could be stored on one or two 
cassette tapes for input to a microcomputer for analysis. The program 
segment below transfers all of the information on tape into a 
5-dimensional array for analysis. Rather than storing one 
questionnaire’s results as a single value, say the integer 13225, this 
program adds one to the tally of like responses in the 5-dimensional 
array. The DIM A(2,3,5,3,5) statement names the array A and sizes 
it as 2x3x5x3x5, or 450 values. A program such as the one below 
could analyze almost any number of questionnaire responses of this 
type, and yet run on a moderately configured microcomputer 
system. 


Sex 

Age 

Geographical 

Location 

Pohtical 

Preference 

Answer to Poll 
Question 
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The program C2P2 listed below does such an analysis. It 
generates Its own test data, because it is the analysis technique rather 
than the data which is the issue here. The output that follows the 
program shows a sample run. Notice how difficult it is to tally like 
responses by scanning the sea of numbers. Imagine how error-prone 
such a visual analysis would be with a sample size in the thousands 
instead of just 297. ’ 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

130 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 


'FILENAHEl "0282” 


'^AUTHO^* analysis WITH LARGE ARRAY 


JPG 


bate; 12/79 


arlificiel dele 
I C I A L BATA" 
of 297 responses 

5-answer response 
'new line every 9th 
each disit as J ) 


DEFINT A-Z 

DIM A(2?3f5,3?5)» B( 5 ) 

'input froBi tape is sisiuleted with 
LPRIMT-T ABLE OF ARTIF 

sprint 'assume a total 

FOR OBS = 1 TO 297 

GOSUB 5001 LPRINT Xj'Senerate one 
IF INT(0BS/9)^:9=0BS THEN LPRINT 
FOR J=5 TO 1 STEP -1 'extract 
BtJ )=X-INT<X/10 )*10t X=X/10 
NEXT J 

add 1 to proper position of A 

A( B( 1 )?B( 2 )i(B( 3 )j tn is tedious 
B=B<1){ E=B(2)t F=B(3)1 G=B(4)t H=B( 5) 
A(DfEfF»G»H) = A< DfEfFjGfH) -f 1 
NEXT OBSl LPRINT; LPRINT 

'sum UP all responses accordins 
GOSUB 600 

LPRINT "SUM OF MALE RESPONDENTS - 
LPRINT "SUM OF FEMALE RESPONDENTS 
'print user-selected elenients of the array A 
INPUT "SEX; M=1 F=2 STOP=0"5 N1 

IF N1=0 THEN 10000 

INPUT "age; <30=1 30-50=2 >50=3"» N2 

INPUT "AREA; PAC=1 MTN=2 MDW=3 S=4 ATL 
INPUT "party; REP=1 DEM=2 0THER=3"y N4 
T=0 'total all respondents for this catesors 
FOR 1=1 TO 5; B< I )=A( N1 yN2yN3yN4y I); T=T+B(I); NEXT 
'report the results of the tally 

FOR^I^l^TO ="?N2y"AREA ="»N3f"PARTY ="fN4 

BIDJ "OF THIS GROUP ANSWERED",I 

NEXT I 

LPRINT "TOTAL OF RESPONDENTS"JN1;N2?W35N4J"X 
LPRINT 
GOTO 260 


to sex 
="ySl 


= "?S2 


=5", 


N3 


'IT 


Chapter 2 Statements and Functions 


15 



BisKe Brlificiel dele usins c-' 

2 )t J2=RND( 3)J J3=RND< 5 )t J4=RND( 3 )» j~-Ri\i.R j ^ 

JlilOiJ2 mOhJZ )tlO+.J4 >^.104J5 


the sexes 


FOR N3 = 1 TO 5 


FOR N4 = 
FOR m 

51 = 

52 = 


51 

52 


'H2=5ubscripl for eSe 
'N3=sub5CTiPi for locBiion 
'N4=subscripi for pol* pref* 
'N5=5ub5criPt for answer 
4 A( lfN2>N3rN4jN5) 'sum of fliBies 
4 A(2?N2»N3»N4jN5) 'sub. of fesiBies 


TO 3 
1 TO 5 


TIFICIAL DATA 


500 'ttttt 
510 J1=RND( 

520 X=( '* ( 

530 RETURN 
600 'ttttt sum 
610 FOR N2 = 1 TO 3 
620 
630 
640 
650 
660 

670 NEXT N5fN4fN3»N2 
680 RETURN 
10000 END 


T A B L 

E OF 

A R 

13224 

23321 

13215 

11122 

23435 

13135 

12312 

22322 

23515 

22122 

12212 

12525 

22123 

13325 

22421 

22421 

12335 

21422 

23433 

13335 

21422 

13312 

21132 

13531 

13125 

21521 

21222 

23135 

21334 

11334 

11235 

13431 

iUiU w w 

21522 

23331 

22134 

13523 

11311 

23334 

21313 

11322 

22324 

12421 

13521 

11523 

11533 

11533 

12231 

12312 

23135 

21424 

21312 

12225 

13422 

21411 

13211 

21335 

12222 

22534 

23125 

11131 

21114 

22424 

22213 

23125 

21415 

11433 

23132 

11312 

23323 

13315 

12512 

23514 

22431 

23234 

11423 

11534 

21213 

11131 

23415 

11311 

13113 

22515 

11424 

12431 

12224 

12134 

13124 

11231 

12433 

23411 

12435 

22113 

22324 

11331 

22233 

12235 

22331 

13323 


11411 

13223 

23524 

21521 

21321 

23114 

13215 

13213 

13512 

23313 

12233 

11521 

22434 

22333 

11511 

11332 

23231 

13234 

22521 

11322 

21435 

12315 

12225 

22311 

21135 

13321 

11112 

22133 

11113 

22323 

11422 

12335 

23424 

12533 

11132 

11112 

23532 

13123 

12314 

12524 

22125 

21121 

21235 

21211 

23523 

23314 

11311 

12531 

22134 

13423 

23132 

21211 

12534 

11512 

23212 

23515 

22134 

12225 

13425 

13124 

13111 

13525 

11224 

13212 

23521 

23432 

23531 

22534 

23125 

11124 

23313 

12135 

12435 

11121 

22115 

21333 

23514 

13112 

22233 

21121 

21421 

13535 

23533 

13533 

23524 

22112 

13134 

13223 

12335 

21321 

22315 

12315 

12122 

23535 

12313 

23323 

22321 

13325 

22334 


nnAnn 

22131 

13225 

13311 

11131 

21224 

11114 

21235 

13331 

12533 

21213 

21222 

21334 

23324 

12535 

22434 

22531 

12411 

13422 

11334 

23515 

12211 

23112 

11114 

12122 

13134 

12231 

22521 

21135 

11533 

13423 

22425 

22221 

22231 

22315 

11513 

13314 

13421 

21434 

12312 

23413 

21211 

11313 

21325 

13531 

23424 

23424 

21332 

11333 

21412 

21132 

13522 

11412 

12535 

23132 

13121 

13313 

22425 

11314 

21115 

23112 

12325 

21424 

12115 

23322 

'I'Jl 

jLt JU* X Am 

11435 

22435 

21335 

21121 

13312 

13511 

22233 

22425 

23414 

13311 

21225 

23511 

22222 

21422 

13521 

21522 

13424 

23235 

21213 

21434 

22523 

22333 

23333 

13324 

21222 

22412 

21432 

23215 

21221 

9^922 

23432 

22135 

21*211 
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SUM OF MALE RESPONDENTS = 140 


oUM OF FEMALE RESPONDENTS = 
SEX = 1 AgE ::l* ? 

0 OF THIS GROUP ANSWERED 1 
3 OF THIS GROUP ANSWERED 2 
1 OF THIS GROUP ANSWERED 3 

1 OF THIS GROUP ANSWERED 4 

2 OF THIS GROUP ANSWERED 5 

TOTAL OF RESPONDENTS 1 2 3 

SEX =2 age = 3 

1 OF THIS GROUP ANSWERED 1 
1 OF THIS GROUP ANSWERED 2 
1 OF THIS GROUP ANSWERED 3 
0 OF THIS GROUP ANSWERED 4 

1 OF THIS GROUP ANSWERED 5 
TOTAL OF RESPONDENTS 235 

SEX =1 AGE = 1 

0 OF THIS GROUP ANSWERED 1 

2 OF THIS GROUP ANSWERED 2 

1 OF THIS GROUP ANSWERED 3 

2 OF THIS GROUP ANSWERED 4 
0 OF THIS GROUP ANSWERED 5 

TOTAL OF RESPONDENTS 1 1 1 

SEX =2 AGE = 2 

1 OF THIS GROUP ANSWERED 1 
1 OF THIS GROUP ANSWERED 2 
0 OF THIS GROUP ANSWERED 3 
0 OF THIS GROUP ANSWERED 4 
0 OF THIS GROUP ANSWERED 5 
TOTAL OF RESPONDENTS 222 

SEX =2 AGE = 3 

1 OF THIS GROUP ANSWERED 1 
0 OF THIS GROUP ANSWERED 2 
1 OF THIS GROUP ANSWERED 3 
1 OF THIS GROUP ANSWERED 4 
0 OF THIS GROUP ANSWERED 5 
TOTAL OF RESPONDENTS 233 


157 

AREA = 3 PARTY = 1 

1 X = 7 

AREA = 5 PARTY = 3 

3 X = 4 

area = 1 PARTY = 1 

1 X = 5 

AREA =T 2 PARTY = 2 

2 X = 2 

AREA = 3 PARTY = 3 

3 X = 3 
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The two programs that follow exemplify the Monte Carlo 
technique, which is a common way to establish randomness in a 

series of observations. , , r. 

The first program, C2P3, demonstrates how to shuffle a deck ot 

52 cards quickly and effectively on the computer by picking two 
cards at random and switching their positions. The pick-and-switch 
is repeated 100 times, although fewer switches might be just as 
effective. 


10 'FILENAME: "C2P3" 

20 'FUNCTION: SHUFFLE A DECK OF CARDS 

30 ' AUTHOR : dPG DATE: 12/79 


40 DIH C(52) , . 

50 ' Senersie the decK snd desl it in order 
60 FOR I = 1 TO 52: C(I) = i: NEXT It GOSUB 500 
70 'shuffle the decK 
80 RANDOM 

90 'switch two cBrds et rBndoni 100 tiaes 
3 00 FOR I = 1 TO 100: X = RND(52): Y = RND< 52) 

110 T = c(X): C(X) = C(Y): c(Y) = t: next i 

120 'now desl it shuffled 
130 GOSUB 500: GOTO 10000 
500 'deelins subroutine (4 hands) 

510 FOR 1=1 TO 52 

520 LPRINT C(l);: IF INT<I/13) $ 13 = I THEN LPRINT 
530 NEXT i: LPRINT: RETURN 
10000 END 


1 2 3 4 5 6 7 8 9 10 11 12 13 

14 15 16 17 18 19 20 21 22 23 24 25 26 

”77 28 29 30 31 32 33 34 35 36 37 38 39 

40 41 42 43 44 45 46 47 48 49 50 51 52 

18 3 17 27 37 19 14 2 10 8 51 26 31 

4 25 5 13 30 22 49 36 20 41 15 50 35 

24 23 52 6 11 32 29 44 21 9 42 45 28 

39 33 43 34 46 16 48 47 7 1 40 12 38 


The second Monte Carlo demonstration shows how the 
technique can be used to balance two (or more) series of events. 
Suppose a record company wishes to equate as closely as possible 
the total playing time on each of two sides of an LP record. The 
first side must contain 12 selections while the second side must 
contain 13 selections for a total of 25 selections with a total 
playing time of 93 minutes. Ideally, each side should be recorded 
with 46 minutes and 30 seconds of playing time. The problem 
arises when trying to find the 12 or 13 tunes whose playing tirne 
most closely approximates that figure. The Monte Carlo technique 
selects 12 tunes at random, adds their playing time, and keeps the 
“best” schedule. 


18 
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10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 


'FILENAHE: "C2P4" 

hontecarlo selection of song prograhs 

'AUTHOR : .JPG/.JBR 12/79 


HIM T$(25), H(25), S<25)f 
' T$= sons title 
' S = seconds per- cut 
' K = rendoBi pointer 


5), K(25), L(25) 


H = minutes per cut 
T = time per cut? in seconds 
L = second rendom pointer 


resd in the titles? minutes? snd seconds 
' N = totei number of sonSs? both sides 


THE 25 
HAS’SN? 


SONGS ON 
"OF THE : 


THIS ALBUM"?N 
!5 SONG TITLES" 


K( I ) = I 


INPUT "HOW MANY OF 
LPRINT "THIS ALBUM 
FOR 1=1 TO 25 

READ Tf(I), M(I)? S(I) 

T( I )=60 t M( I) -f S( I ): 

NEXT I 

C=60000J ' set smellest cliff, between sides vers high 
INPUT "HOW MANY SCRAMBLES"?N5 

LPRINT "SELECTED NUMBER OF SCRAMBLES="?N5 
FOR 0=1 TO N5 ' scremble sonSs N5 times 

fai)t K(I)=K(.J): K(.J)=Z 

sides 
-INT(N/2) 

Z1FT<J): .J=K(I-fN2): 22=Z2-fT(.J) 

N/2) THEN Z2=Z2+T(N) 

B = diff. in time between sides 
380J ' C = previousls smellest diff. 


220 

FOR 1=1 TO N 

230 

J=RND(N): Z= 

240 

NEXT I 

250 

' sum times for 

260 

zi=o: Z2=o: N 2 

270 

FOR 1=1 TO N2 

280 

J=K(I): 21 = 

290 

NEXT I 

300. 

IF N/2<>INT( 

310 

B=ABS(Z1-Z2): 

320 

IF B>=C THEN 

330 

c=b: ci=zi: c2^ 

340 

FOR 1=1 TO n: I 

350 

PRINT "LEAST=" 

360 

LPRINT "LEAST=" 


L<I)=K(I): NEXT 
?C?"IN TRY"?Q 
?C?"IN TRY"?Q 
'greet! 0 


370 IF C=0 THEN 390 
380 NEXT 0 

390 print: print 

400 LPRINTILPRINT 
410 M1 = INT( Cl/60): S1=C1-60!!CM1 
420 PRINT "SIDE 1" ?M1 ?*" t" ,‘Si: LPRINT 
430 FOR 1=1 TO N2: J=L< I) 

440 PRINT T$( J)TAB<40)M(J)“:"S(J) 
450 LPRINT T$( J)TAB(40)M(J)":“S(J) 
460 NEXT I 

470 PRINT:PRINT:LPRINT:LPRINT 
480 M2=INT(C2/60): S2=C2-60)icM2 
490 PRINT "SIDE 2"? M2? "J"? S2 


is difference! 

'get next shuffle of times 

"SIDE 1"?M1?":"?S1 
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500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 


LPRINT "SIIiE 2% M2; " 1" f S2 
FOR I=N2-!-l TO Ul J=L(I ) 

PRINT Tl( J )TAB( 40 )M( J )" > '‘S( J ) 
LPRINT T$( J )TftB( 40 )H( J )" S"S( J ) 


NEXT 

BATA 

DATA 

BATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


"MAGMA COME LOUDLY" ?2?45»"CRAMP MY STYLE" !-2j 20 
“PORKY AND TESS"?5s21?"PUSHBUTTON POLKA"?6»23 
"THE GODMOTHER THEME"MsSS?"FIG NEWTON"?3 j 2 
"MOTEL COLORADO"f2y43?"YELLOW FEVER"?2?10 
"STAGNANT"?3?55?"NEW HAVEN NEW HAVEN"?8?23 
"LIFE IN THE FAT LANE"?3?21?"HOT SNUFF"?5?31 
"FIRST RATE ROMANCE RITZ RENDEZVOUS"?3?33 
"IRON ORCHID"?3?36f"FIFTY-FIRST STREET"?1?23 
"BLACK HOLE BLUES"?2?51?"YELL0W PILLOW"?6?0 
"PINACOLATAVILLE" ?2?44?"SALADA CANTAiTA" ?4?25 
"FLORIBUNDA"?3?8?"TAKE THIS JOBBIN SH0VEL"?3?8 
"STAR TRUCK"?3?40?"SEMIHEMIDEMIOUAVER"?2?2 
"IPHEGENIA IN QUEENS"?2?34?"CABINETWORKS"?3?42 


10000 END 


THIS ALBUM HAS 25 OF THE 25 SONG TITLES 
SELECTED NUMBER OF SCRAMBLES= 50 

LEAST= 46 IN TRY 1 
LEAST= 36 IN TRY 7 

LEAST= 8 IN TRY 28 


SIDE 1 47 t 1 

THE GODMOTHER THEME 
HOT SNUFF 

IPHEGENIA IN QUEENS 
FIFTY-FIRST STREET, 

IRON ORCHID 
SALADA CANTATA 
PORKY AND TESS 
PUSHBUTTON POLKA 

BLACK HOLE BLUES 

TAKE THIS JOBBIN SHOVEL 

STAGNANT 

LIFE IN THE FAT LANE 


4 t 33 

5 t 31 

2 I 34 

1 t 23 

3 : 36 

4 t 25 

5 I 21 

6 : 23 

2 : 51 

3 : 8 
3 X 55 
3 : 21 


20 
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47 t 9 


SIDE 2 

PINACOLATAVILLE 
FIRST RATE ROMANCE RITZ RENDEZVOUS 
FLORIBUNDA 
CRAMP MY STYLE 
STAR TRUCK 
YELLOW PILLOW 
SEMIHEMIDEMIQUAMER 
NEW HAVEN NEW HAVEN 
CABINETWORKS 
YELLOW FEVER 
FIG NEWTON 
MOTEL COLORADO 
MAGMA COME LOUDLY 


2 t 44 

3 : 33 
3 I 8 

2 t 20 

3 I 40 
6 : 0 

2 t 2 
8 : 23 

3 : 42 

2 t 10 

3 t 2 
2 ; 43 
2 t 45 


THIS ALBUM HAS 17 OF THE 25 SONG TITLES 

SELECTED NUMBER OF SCRAMBLES- 50 

LEAST- 200 IN TRY 1 

LEAST- 145 IN TRY 2 

LEAST- 17 IN TRY 4 

LEAST- 8 IN TRY 14 


QTriF 1 ♦ 11 

NEW HAVEN NEW HAVEN 

FIG NEWTON 

PORKY AND TESS 

YELLOW PILLOW 

YELLOW FEVER 

LIFE IN THE FAT LANE 

HOT SNUFF 

FIFTY-FIRST STREET 

SIDE 2 35 t 3 

STAGNANT 

CRAMP MY STYLE 

THE GODMOTHER THEME 

MAGMA COME LOUDLY 

PUSHBUTTON POLKA 

FIRST RATE ROMANCE RITZ RENDEZVOUS 
BLACK HOLE BLUES 
MOTEL COLORADO 
IRON ORCHID 


8 1 23 
3 t 2 

5 : 21 

6 : 0 
2 : 10 
3 i 21 
5 : 31 
1 : 23 


3 J 55 
2 t 20 

4 : 33 

2 1 45 
6 t 23 

3 1 33 
2 t 51 

2 1 43 

3 : 36 
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string Functions String functions are designed to return strings or information 

concerning the strings that are referenced in the argument. 

The LEN function returns the length of the string, argument . 
Inslruclion Output 


10 PRINT LEN<"ABC" ) 

20 PRINT LEN( "COUNT"+"DRACULA" ) 

30 PRINT LEN( "MAC" HLEN( "HINES" ) 

40 A$="SCR": B$="AM" 

50 IF LEN(A$)<10 THEN A$=A$T"E": GOTO 50 
60 A$=A$+B$t PRINT LEN(A$)rA$ 


3 

12 

8 


12 SCREEEEEEEAM 


Line 50 above pads A$ with as many “E”s as it takes to make 
it 10 characters long, then ‘"adds” (concatenates) B$ to the result. 


LEFTS and 
RIGHTS 


MIDS 


LEFTS and RIGHTS return substrings of the string argument 
for the length specified by the numeric argument. 

LEFTS(X$,N) returns the N leftmost characters of XS. 
RIGHTS(XS,N) returns the N rightmost characters of XS. 

Inslruclion OuIpuI 


70 PRINT LEFT$( "ABCD’GS) 

80 PRINT RIGHT$("ABCD"j2) CD 

90 A$="BAN"J PRINT A$FRIGHT$(A$»2)i"A" BANANA 

100 PRINT LEFT$("FIRE"F" ■S6)-{-"Z" FIRE Z 

MIDS(AS,P,L) extracts a substring of the argument string AS 
starting with the character at position P for a length of L characters. 
If the third argument L is omitted, the function returns all of the 
string starting at position P. 



Inslruclion 

Oulpul 

100 

PRINT MIIi$( "ABCDE"»3»2) 

CD 

110 

PRINT MID$( "ABCDE"»3j3 ) 

CDE 

120 

PRINT MID$("ABCDE"»2) 

BCDE 
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ASCandCHRS 


If the position argument exceeds the length of the string the 
returned (“extracted”) string is null. 


Insiruclion 


Output 


130 "ABCDE%8)1 PRINT B$; LEN< B$ ) 0 

The MID$ function is useful for searching a string for a 
particular character or substring. This example shows how the 
length of a person s first name could be determined in order to 
reposition the last name. 


10 'FILENAHE: ''C2P5'’ 

20 'FUNCTION! REVERSE LAST AND FIRST NAHE 
30 ' AUTHOR I JPG DATE! 6/7? 

40 ■' 

50 CLEAR 100! INPUT "TYPE YOUR NAME — LAST FIRST Mr';N$ 
60 LPRINT N$ 

70 FOR 1=1 TO LEN<N$) 

80 IF MID$(N$jIfl)<>" " THEN NEXT I 

90 IF I=LEN(N$) THEN 40 

100 LPRINT MID$( N$? IFl )-f" "-FLEFT$( N$!-I-l ) 

10000 END 


Clone Bo 2 o T 
Bozo T Clone 


The ASC function returns the ASCII (American Standard 
Code for Information Interchange) code equivalent in decimal of 
the first character of its string argument, which cannot be null. 
See Appendix B for a complete listing of all ASCII codes. 


Instruction 


Output 


10 PRINT ASCI "ABC" ) 
20 PRINT ASC("1979") 
30 PRINT ASC( " " ) 

40 PRINT ASC<"1" ) 
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VAL and STR$ 


The CHR$ function is the reverse of the ASC function. Its 
argument is a value that is taken to be the decimal equivalent of an 
ASCII code, and the character it represents is returned. 

Insiruclion Output 


50 PRINT CHRI(77) H 

60 PRINT CHRf(65) A 

70 FOR 1=40 TO 63 ^ vv 

80 PRINT CHR$(I)» ( mj-»/012.s4j6789« 

90 NEXT I 

The TRS-80 has an unusual extension to the character set. As 
is the case with all 8-bit micros, the 128-character ASCII code uses 
only half of the possible bit patterns, and so Radio Shack uses the 
values 128 to 255 for a variety of reasons. Half of these, from 192 
to 255 inclusive, can be printed using the CHR$ function, and the 
result is a variable-length TAB argument. 

Examples—Various Ways to Tab 

TsbbinS without TAB 


10 PRINT CHR$n92f5)r'X‘’ 

50 PRINT CHR$(255)?"Y" 

100 9=1921 PRINT CHRf(V)»"Z" 


with TAB 


10 PRINT TAB(5)j"X" 
50 PRINT TAB<63);"Y" 
100 PRINT TAB(0)5'‘Z" 


The VAL and STR$ are two companion functions used for 
string-to-numeric and numeric-to-string conversion. The VAL 
function uses a string as its argument. It returns the value that is 
represented in the string. If the string is mixed, and starts with 
numeric characters, the value of the leading number is returned. It 
the string starts with non-numeric characters the value returned is . 

Instruction Output 


130 LPRINT MAK "2E3'‘ > 

140 LPRINT VAL( "12*34" ) 

150 LPRINT VAL("8 O'ClocK" >*100 
160 LPRINT VAL("B29") 

170 X$="-8*765"; LPRINT VAL(X$) 


2000 

12*34 

800 

0 

-8*765 
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The STR$ function performs the opposite of the VAL function. 
It converts a value to a string. Its argument is a constant, a numeric 
variable, or a numeric expression. Note that 9-digit accuracy is 
maintained. 

Instr-ucliofi Cutfui 


160 

170 

180 

190 

200 


LPRTNT STR$C5) 

LPRINT STR$( 123456789) 

LPRTNT MAK STR$( 123457689 )) 

LPRINT STR$( MALI ’■123457689” )) 

LPRINT RIGHT$( STR$( 5 ). 1 )+RIGHT$( STR$< 7)^1) 
LPRINT RTGHT$( STR$( 5 )? 1 )iLEFT$( STR$( 7 )? 1 ) 
LPRINT RIGHT$( STR$< 5 )? 1 )-fSTR$( 7 ) 


123456789 
123456789 
5456789 


lZ6 

c:; “7 

J/ 


b 


Note that STR$(5) is two bytes long, representing the sign and 
the digit. 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 


'FILENAME! 
'FUNCTION! 
' AUTHOR ! 


”C2P6" 
MERY LONG 
JPG 


ADDITION 


DATE! 12/79 


CLEAR 1000' deer enough siring spece 

input both long integers es strings? A$ end B$ 
PRINT "TYPE THE FIRST MEMBER? UP TO 60 DIGITS LONG." 
PRINT "TYPE 'STOP' TO EXIT." 

INPUT A$! LI = LEN(A$)! C=0 
IF A$ = "STOP" THEN STOP 
PRINT "TYPE THE SECOND NUMBER? 

INPUT B$! L2 = LEN<B$) 

C$=""! C=0' set enswer string 


UP TO 60 DIGITS LONG." 


to null? cerry to 
with bienks 


0 


ped both strings et left 
A$=STRING$( 60-Ll?" ")FA$ 

B$=STRING$( 60-L2?" " )-fE$ 

add one digit et e time? Keep treck of cerry 
FOR 1=60 TO 1 STEP -1 

S=yAL<MID$( A$?I?1 )) f yAL<MID$(B$?I?l)) -f C 
IF S>9 THEN C=l! S=S-10 ELSE C=0 
C$=RIGHT$<STR$(S)?1) i C$ 

NEXT I 

now get rid of leeding zeros in enswer 

first find position of first non-zero cherecter 
FOR I = 1 TO LEN(C$)! IF MID$(C$?I?1 )="0" THEN NEXT I 
then concetenete bienks where there were zeros 
C$=STRING$(I-1," ") + RIGHT$<C$?61-I) 

' print both the input end the enswer 
LPRINT " "+A$! LPRINT "+" i B$ 

LPRINT STRIN6$( 61?"-" )! LPRINT " "+C$ 

LPRINT! LPRINT! GOTO 20 


10000 END 
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•f 


7645685435807335437453311285003 

346844343222609212144399 


7645685782651678660062523429402 


+ 


98765498765443321254398709877654323276548765432545766565 
111111111111111111111 

109876609876554432365509820988765434387659876543656877676 

1234567876543212345678765432123456787654321 

8765432123456787654321234567876543212345678 

9999999999999999999999999999999999999999999 


77777777777777777777777777777777777777777777777777777777 

77777777777777777777777777777777777777777777777777777777 


155555555555555555555555555555555555555555555555555555554 


99999999999999999999999999999999999999999999999999999999 


100000000000000000000000000000000000000000000000000000000 

User-defined Some programs use a few simple routines so often that they 

Functions are best written as single-line functions. This is possible in most 

versions of extended BASIC. The format for defining single-line 
functions is: 

DBF FNX(V1, V2, . . .) = expression 

or 

DBF FNX$(V1, V2,. . .) = string expression 

The X or X$ is any legal numeric or string variable that will 
identify whether the function returns a numeric or string result. 

The VI, V2, and others if necessary are dummy arguments to the 
function definition. That is, their name is immaterial, except for 
type and position. They represent the type and position of the 
actual arguments as the function is invoked within the program. 

The expression shows the way the dummy arguments interrelate to 
produce the single answer. 

There are two distinctly different occurrences of user-defined 
functions in any program. One occurrence is its definition, and 
this must precede all other occurrences, which are called its 
invocations. Your study of these examples will help you to 
appreciate this feature of BASIC. 
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Ou IpuI 


Insiruciion 


5 Tl=5t R7=8rB2=75 
10 DEF FHA(XjY»Z)=X+Y+Z 
20 LPRINT FNA(T1»R7»B2) 

30 DEF FHEK AjBjC)=BifcB~4*A*C 
40 LPRINT FND(T1»B2 jR7) 

50 DEF FNR(AfBfC)=(-BFSQR(FND(A»BjC))/(A+A)) 
60 LPRINT FNR(TlrB2yR7) 

70 DEF FNX$(N$)=LEFT$(N$»2HRIGHT$(N$f2) 

80 LPRINT FNX$("FINS SPLASH") 

90 DEF FNL#(A*jB*)=A*/B4 
100 LPRINT FNL*(R7VB2) 

110 LPRINT FNA(45»67f89) 

120 LPRINT FND( 3243^234?123 ) 

130 LPRINT FNR(34j567?89) 

140 LPRINT FNL*(l!7) 


88 

5465 

-67.6074 

FISH 

.1066666666666667 

201 

-1.5403E+06 

-558.82 

.1428571428571429 


Notice that the variables used when the function was invoked are 
not the same as those used in the definition, but that they are used 
in a one-to-one substitution. 

Double precision is explained in Chapter 4, but this example 
is used here to show that user-defined functions can return integer 
or double precision answers, unlike the library functions, which 
return only single precision answers. 

In this chapter, you have learned that strings can be 
manipulated in a variety of ways to ease the burden of character 
processing. Also, you have seen some unusual features of the 
TRS-80 Level II BASIC that further extend its flexibility in 
programming. The next chapter discusses some extensions of BASIC 
that the TRS-80 uses to communicate to the user through video 
screen and line printer. 
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Input and Output Programmers are often quick to point out that programming a 

computer to process information is only one phase of the work. 
Often the input of data into the computer for future processing or 
the output of the processed information is at least as troublesome. 
As college teachers we have found that what is obvious to the 
professional programmer is not at all obvious to the beginning 
programmer: Good output is by definition highly readable and well 
organized, and requires a great deal of prior planning to produce. 

In this chapter we will discuss the PRINT USING, a statement 
that greatly simplifies the task of making output readable. We will 
also discuss the PEEK and POKE instructions that read or alter 
memory directly, and the INP and OUT instructions that control 
the interface ports of the microcomputer. 


Cued INPUT Most extended BASICs have a feature that allows a message to 

be printed along with the usual question mark prompt upon 
execution of an INPUT statement. The programmer simply places 
the message in quotes after the word INPUT, then a semicolon and 
the list of variables. 
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Examples: 


LPRINT 


PRINT USING 



Instruction 

Output 

10 

INPUT "NAME"?N$ 

NAME? 

20 

INPUT "yEIGHT"fW 

WEIGHT? 

30 

INPUT "SEX"fS$ 

SEX? 

40 

INPUT "VALUE"?A 

VALUE? 


One of the signs that BASIC has matured as a computer language 
is its ability to use an attached printer as an output device. The 
LPRINT command acts exactly like all versions of the PRINT 
command, except the output is sent to the printer. Most of the 
examples and programs in this book have used and will use the 
LPRINT as well as the PRINT. 


If any one feature has enhanced the reputation of BASIC as a 
language in the professional community, it is the PRINT USING 
statement. This feature allows a great deal of flexibility in the 
formatting of output, and for this reason is used extensively in the 
printing of reports and in increasing the readability of screen output. 

Some examples should clarify its use. Suppose you want to 
produce a chart of the values of the sine, cosine, and tangent for 
angles between 0 and 45 degrees in increments of 5 degrees. 

10 'FILENAME* "C3FT" 

20 'FUNCTIONS CHART FOR VARIOUS FUNCTIONS 
30 ' AUTHOR t JPG DATES 3/80 

40 ' print colutiin heedings 
50 LPRINT "DEGREES'S "SINE"» "COSINE’ 

60 FOR I = 0 TO 45 STEP 5 
70 ' convert redisns to degrees 
80 A = *0174533 ^ I 
90 LPRINT If SIN(A)f C0S(A)f TAN( A 

100 NEXT I 
10000 END 
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DEGREES 

SINE 

0 

0 

5 

.087155i 

10 

.173648 

15 

.258819 

20 

.34202 

25 

.422618 

30 

.5 

35 

.573577 

40 

.642788 

45 

.707107 


COSINE 

TANGENT 

1 

0 

.996195 

.0874887 

.984808 

.176327 

.965926 

.267949 

.939693 

.36397 

.906308 

.466308 

.866025 

.577351 

.819152 

.700208 

.766044 

.8391 

.707107 

1 


Wouldn’t it be nice if the same chart could contain the square 
root and cube root of these values? Unfortunately, this would print 
six values causing overflow of the four 16-column zones that make 
up the TRS-80 screen. The first four values would appear on one 
line, then the last two on the second line, as shown here. 


DEGREES 
SQ ROOT 
0 
0 
5 

.295409 

10 

.417772 

15 

.511663 

20 

.590818 

25 

.660555 

30 

.723601 

35 

.781579 

40 

.835543 

45 

.886227 


SINE 

CUBE ROOT 
0 
0 

.0871558 

.443557 

.173648 

.558847 

.258819 

.63972 

.34202 

.704103 
.422618 
.758471 
. 5 

.805996 

.573577 

.848494 

.642788 

.887114 

.707107 


COSINE 

1 

.996195 

.984808 

.965926 

.939693 

.906308 

.866025 

.819152 

.766044 

.707107 


TANGENT 

0 

.0874887 

.176327 

.267949 

.36397 

.466308 

.577351 

.700208 

.8391 

1 


922635 


A clever programmer could use the TAB function and a 
rounding function to produce some much better looking output. 
Consider this alteration of the program. 
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10 'FILENAHEt '■C3P2" 

20 'FUNCTIONS PRINT NEAT TABLE WITH NOT-SO-NEAT PROGRAH 
30 ' AUTHOR : JPG DATE: 4/80 

40 ' print column heedin^s 

50 LPRINT '‘DEG’'; TAB(10)s "SINE'S TAB(20)J "COSINE"? 

60 LPRINT TAB(30)? "TANGENT"? TAB<40)? "SO ROOT"? 

70 LPRINT TAB(50)? "CUBE ROOT" 

80 FOR 1=0 TO 45 STEP 5 

90 A=*0174533*I ' convert rsdiens to decrees 

100 'convert ell values to 3-Plece numbers 

no X=SIN(A): GOSUB 190 T S=X 

120 X=COS(A): GOSUB 190: c=x 

130 X=TAN(A); GOSUB 190: T=X 

140 X=SQR<I): GOSUB 1901 U=X 

150 X=IE(l/3): GOSUB 190 J y=x 

160 ' note the minimal punctuation 

170 LPRINT I TAB<10)S TAB! 20 )C TAB( 30 )T TAB( 40 )U TAB( 50 >0 

180 NEXT i: GOTO 10000 

190 X=INT(1000*X+,0005)71000 

200 RETURN 

10000 END 


DEG 

SINE 

COSINE 

TANGENT 

SQ ROOT 

CUBE ROOT 

0 

0 

1 

0 

0 

0 

5 

.087 

.996 

.087 

2 * 236 

1.709 

10 

.173 

.984 

.176 

3.162 

2.154 

15 

.258 

.965 

.267 

3.872 

2.466 

20 

.342 

.939 

.363 

4.472 

2.714 

25 

.422 

.906 

.466 

5 

2.924 

30 

.5 

.866 

.577 

5.477 

3.107 

35 

.573 

.819 

.7 

5.916 

3.271 

40 

.642 

.766 

.839 

6.324 

3.419 

45 

.707 

.707 

1 

6.708 

3.556 


The real problem with this kind of programming is not that it 
doesn’t do the job. Rather, the job it does is not obvious to the 
reader of the program. One doesn’t “see” the layout of the output 
line by studying the program. Also, a small change in layout format 
would be difficult to implement. 

The PRINT USING statement allows the programmer to define 
an image of the output line as a string variable, and then print the 
variables using that image. There two ways this can be done: 

(1) The PRINT USING statement can contain the image 
(without any variables). 

(2) The PRINT USING statement can contain a string variable 
that defines the image. 

The image is a string that acts as a mask for the output line. 
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There are five possible contents to an image statement. 

(1) Spaces, used to spread out the values of the variables. 

(2) Literals, used to place headings or messages. 

(3) Digit specifiers (#), used to mask digit positions. 

(4) String specifiers (% and !), used to mask characters in a 
string. 

(5) Special characters (,.$*+-), used to designate punctuation, 
fill characters, signs, or exponents in scientific notation. 

See Table 3.1 for a summary of these image specifiers and their 
effects. 

The PRINT USING statement has the following form: 

PRINT USING string', values 

where string is the image, either as a string constant or variable, and 
values is the list of variables or constants to be printed. 

The following examples show the use of spaces, literals, and 
digit specifiers. 


SuPFose A=25» B=368 j snd C=71904 


Instruction 


Output 


30 PRINT USING ;a 

40 PRINT USING 
50 PRINT USING “###*$"JC 
60 PRINT USING "###« 

70 PRINT USING UU ♦♦♦♦■•JA»B?C 

75 A$=’'4*4 *** #♦##♦" 

80 PRINT USING AfJAjBjC 
85 B$=''A=*4 B=4ft#" 

90 PRINT USING B$fAfB 
95 C$~''VALUES 1" 

.too PRINT USING C$-fA$JAjByC 


25 

368 

71904 

25 368 

25 368 %71904 

25 368 71904 

A=25 B= 368 

values: 25 368 71904 
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SPECIFIER CHARACTER FUNCTION^ j_ 

SpBce (sp) spresds output e spece 


LitePBl sny printsble Bppesrs e>!3ctly 

chsrscter hut in inisde 
♦ or specisi 
chsrscters 


j the litersi 
' itself 


Specisl 

Chsrscters 



lasrKs s didit 
position 

di^ii or b 
space 

1 

sepsrstes every 
three disits in 
the correct 
positions 
( 475 » 346J257 ) 

f or B blBnK 

♦ 

itisrks the position 
of the decimsl point 
in 3 nunieric field 

the * is 
always printed 

$ 

prints s flostinS 
dollsr sidn 

printed Just 
in front of the 
first di^it in 
the nuflieric field 

* 

Sives check 
protection 

is printed 
instead of the 
leading zeros 
or spaces 


prints correct sidn 
of the follownd 
number 

positive value 
prints a f 
negative value 
prints a ~ 

- 

^ print s - if vslue 

is neSstive 

positive value 
prints a spacef 
negative value 
prints a - sign 


four of them denote 
scientific notslion 
usind exponents 

the letter E plus 
the sign of the 
exponent Plus two 
exponent digits 

% 

marks the boundaries 
of sn slphsnumeric 
field 

allows string 
variables to be 
used in the iffiage 

! 

marks the position 
of 3 chBPScter 

allows single 
characters 


Table 3.1 Image Specifiers and Their Effects 
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A number of features enhance the value of the PRINT USING. 

(1) It prints the value even if it is too large for its 
corresponding image. 

(2) Formats can be changed during the execution of the 
program. 

(3) Trailing zeros are printed. 

(4) Values are printed in rounded form. 

(5) If the number to be printed is too large for its image, the 
entire value is printed, but with a leading percent sign to 
signal the user that the number was too large for its image. 
An example of this was shown in the output from line 70 
in the above examples. For more, see the following 
examples. 

Insirucliori Output 


10 PRINT USING 5 450 

20 PRINT USING 5830.375 


%450.00 

%830.38 


Punctuation, such as decimal points, commas separating 
thousands and millions, plus and minus signs, dollar signs, and fill 
characters, can be inserted in an output field with very little trouble. 


Suppose 8=2.718282? G=-65.432? H=7492835f and P=3.141593 


Instruction 


Output 


10 PRINT USING 5E 

20 PRINT USING 5H 

25 

30 PRINT USING A$5G 
40 PRINT USING A$5P 
45 C$="**.##+" 

50 PRINT USING B$5G 
60 PRINT USING C$5G 
70 PRINT USING B$5P 
80 PRINT USING C$5P 


2.7183 

7»492?840.00 

%~65.43 

3.14 

65.43- 

65.43- 

3.14 

3.14+ 


Chapter 3 Input and Output 


35 





The examples above show that when a plus sign is placed at the 
end of a digit specifier field, it forces the printing of a sign at that 
position: + for positive numbers and - for negative numbers. When a 
minus sign is placed at the end of a digit specifier field, it forces the 
printing of a space for positive and a - for negative numbers. 

Now let’s look at that table-printing program again, only this 
time it will have a PRINT USING statement. 


10 

20 

30 

40 

50 


'FILENAME! "C3P3” 

'FUNCTION! PRINT A TABLE WITH 
' AUTHOR ! JPG 


PRINT USING STATEMENTS 
DATE! 4/80 


' print coluHtn heBdinfis 
LPRINT " DEG SIN COS 


TAN SO RT CU RT" 


60 ' define the isiBde for the tshle 

75 = ■' 




30 FOR I = 0 TO 45 STEP 5 

?0 A=.0174533*1 ' convert radians to degrees 

100 ' note the minimal punctuation 

110 LPRINT USING A$» I,SIN<A )jC 0S(A )fTAN( A)jSQR( I )?IC(l/3) 
120 NEXT I 
10000 END 


DEG 

0 

5 

10 

15 

20 

25 

30 

35 

40 

45 


SIN 

COS 

TAN 

SQ RT 

CU RT 

0.000 

1.000 

0.000 

0.000 

0.000 

0.087 

0.996 

0.087 

2.236 

1.710 

0.174 

0.985 

0.176 

3.162 

2.154 

0.259 

0.966 

0.268 

3.873 

2.466 

0.342 

0.940 

0.364 

4.472 

2.714 

0.423 

0.906 

0»466 

5.000 

2.924 

0.500 

0.866 

0.577 

5.477 

3.107 

0.574 

0.^819 

0.700 

5.916 

3.271 

0.643 

0.766 

0.839 

6.325 

3.420 

0.707 

0.707 

1.000 

6.708 

3.557 


The output of program C3P3 shows the advantage of the 
PRINT USING in printing trailing zeros to fill the image. The 
computer prints the sine of 30° as 0.500, and not just 0.5. 

You can build image strings during execution of the program 
that depend upon certain features of the variable values to be 
printed. For example, suppose your program is to print an amount 
with varying size embedded within text without any extra blanks. 
Study the following program to see how this is done. 
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10 'FILENAHEt ''C3P4" 

20 'FUNCTIONt ANOTHER EXAMPLE OF HOU IMAGES CAN BE USED 
30 ' AUTHOR : JPG DATE; 4/80 

40 CLEAR 300 

50 INPUT "AMOUNT TO BE EMBEDDED (DOLLARS AND CENTS )"»X 

60 IF X=0 THEN 10000 

70 Ff=""; A$=STR$(X); L=LEN(A$) 

80 FOR 1=1 TO L-3; F$=F$i"*";NEXT I 
90 Ff="$"+F$+".«" 

100 LPRINT "OUR ACCOUNTS SHOW YOU TO BE IN ARREARS" 
no LPRINT USING "BY THE AMOUNT OF "+F$+" DOLLARS"? X 
120 LPRINT " FOR THE MONTH OF AUGUST." 

130 GOTO 50 
10000 END 


OUR ACCOUNTS SHOW YOU TO BE IN ARREARS 
BY THE AMOUNT OF $ 4338.24 DOLLARS 
FOR THE MONTH OF AUGUST. 

OUR ACCOUNTS SHOW YOU TO BE IN ARREARS 
BY THE AMOUNT OF $ 1.23 DOLLARS 
FOR THE MONTH OF AUGUST. 


When very large or very small values are to be printed, it is 
sometimes better, either for convenience or for appearance, to print 
these values in scientific notation. The up-arrow (t) indicates the 
exponentiation operation in BASIC, but in a PRINT USING 
statement it also serves as an image specifier for the exponent portion 
of a number. Four up-arrows (tttt) are used in an image that serves 
for scientific notation output. 

The first t masks the letter E. 

The second t masks the sign of the exponent. 

The last two ft mask the value of the exponent. 

Study the following examples to see how very large values can be 
printed. 
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Inslrucliort 


OulF-ui 


10 CLEAR 200 

20 A=6.023E-8t B=*000000000012345 
30 C=5.43E12J ri=4920450000000000 
40 S$=" 

50 

60 Ef="**#t#»fttt" 

70 PRINT USING S$JA 
75 PRINT USING S$?B 
80 PRINT USING E$fA 
85 PRINT USING E$jB 
90 PRINT USING LfJC 
95 PRINT USING L$»ri 
100 PRINT USING E$5C 
105 PRINT USING E$5Ii 


0.000000060230000000 

0.000000000012345000 

0.6023E-07 

0.1235E-10 

5T430fOOOjOOOjOOO 

4»920!450»OOOjOOOjOOO 

0.5430E+13 

0.4920E+16 


The $ and * characters can be used as fill characters in an image 
statement. This is useful in payroll programs that contain a check 
protection feature. 


Suppose A=^3.75? B= 


-4.86f X$=" end 


Inslruclion 


Output 


10 PRINT USING 
20 PRINT USING 
30 PRINT USING 
40 PRINT USING ":t^;#"PY$?B 
50 PRINT USING '’$f#"LX$?B 
60 PRINT USING “$$#"TY$;B 
70 PRINT USING "$ #"+Xf»B 
80 PRINT USING "f f’-fYffB 
90 PRINT USING "#$:$’‘-!-X$rB 
100 PRINT USING "-fYljB 


*!}!!|E!l:S:3.75 

^#*f.~4.86 

-$4.86 
$4.86- 
$ —4.86 

$ 4.86“ 

$**-$ 4.86 
****$4.86- 
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String specifiers in a PRINT USING image statement can control 
the positioning of strings. There are two string specifiers: 

! is used to denote a single character. 

% % is used to denote an enclosed string. 

The ! specifier positions just the first character of a string. 


Instruction 


Output 


10 A$="ABC'': X$="XYZ"I 1$="!" 

20 PRINT USING I$5A$ 

30 PRINT USING "!"jX$ 

40 PRINT USING "!!’SAffX$ 

50 PRINT USING "! ! ! !" fA$yX$!. "LlVin" »"ENACT" 

60 PRINT USING "! ! ! !" J"BOZO"»" »’S"THE'G"»" ? 

70 PRINT " CLONE" 


A 

V 

A 

AX 

AXLE 
B. T* CLONE 


The % % specifiers are always used in pairs, each pair enclosing 
the string that it is masking. The spaces between the % characters, 
plus the % characters themselves, provide the mask. 


Instruction Output 


90 A$="X X"t B$="n" 

100 X$="H0NTANA"t Y$="0HI0" 

no PRINT USING A$5X$ MONTA 

120 PRINT USING A$?Y$ OHIO 

130 PRINT USING B$iB$;X$,Y$ MOOH 

140 PRINT USING B$-!-" OH OH 


The four features that follow-INP, OUT, PEEK, and POKE- 
are not found just in the TRS-80 Level II BASIC. This is why they 
are explained in this chapter. However, the reader should be 
cautioned that some microcomputers handle these features in slightly 
different ways than the TRS-80. We have explained them as they 
operate on the TRS-80 because that is the target system for this book. 


INP and OUT The INP is a function that returns a-single byte from the 

TRS-80’s I/O (input/output) port specified in the argument. For 
example, the statement 

30 X=INP( 127) 
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PEEK and POKE 


returns the byte that is at port 127 and stores it in the variable X. 

The expansion interface is necessary to make full use of this function. 

The OUT statement acts much like the INP, but in reverse. It 
requires two values, the first being the port number in decimal and 
the second being the byte that is to be transmitted to that port. 

For example, the statement 


40 OUT 127f60 


transfers a 60 to port 127. 


The PEEK function and POKE statement are very much like 
the INP function and OUT statement respectively. The difference 
is that they pick up or deposit single bytes in memory, rather than 
at the I/O ports. 

The function PEEK has a single argument which is a decimal 
memory address. An example statement using the PEEK function 
is 

50 A=PEEK( 14520 ) 

This statement causes the variable A to take on the value of the byte 
stored at the decimal address 14520. 

The statement 

60 PRINT PEEK( 16650 ) 


prints the byte at memory address 16650. 

The statement 

70 X=PEEK( 15360-fI ) 

places in X the value at location 15360 displaced by an increment I. 

The POKE statement has two arguments, an address and a 
value. For example, the statement 

80 POKE 15650^65 


places the character “A” in a location of memory which happens to 
be in the portion of memory that is displayed on the video screen 
(see Appendix C for a complete memory map for the TRS-80). 

The memory positions with addresses 15360 to 16383 represent the 
1024 specific positions on the screen, that section of memory which 
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serve as a buffer to the screen. The image of the screen at any time 
is in memory at those addresses, and a programmer can “read” the 
screen with a PEEK or “write” to the screen with a POKE into that 
area. 

This program accesses (and does a quick read/write check of) 
the memory addresses 17129 to 20479, the 3300-byte area of memory 
that a 4K Level II system has reserved for user programs. 


10 'filenahe; "csps" 

20 'FUNCTION! MEMORY TESTER 

30 ' AUTHOR t JF'O DATE! 4/80 

40 FOR I = 17129 TO 20479 

50 X = PEEK(I)! Y == X 

60 IF INT(I/lOO )*100=I THEN PRINT I? 

70 POKE IfY! Y = PEEK(I ) 

80 IF X <> Y THEN PRINT "SOMETHING WRONG AT''??I 
90 NEXT I 
10000 END 


This chapter concludes the coverage of the extensions of 
BASIC that are commonly found on most microcomputers. The 
following chapters discuss in detail the extensions of BASIC that are 
found in the TRS-80’s version of Microsoft BASIC. 
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Variables 


Level II BASIC on the TRS-80 is rich with features that makes it 
perform like other popular high-level languages. This chapter will 
discuss how variables can be used in various ways to make them more 
appropriate for their application. 





Long Variable 
Names 


Most BASICS hold to the rule of letter or letter-and-digit as the 
only permissible variable names. This stringent requirement reduces 
the total possible number of variable names to 286. (26 for A to Z 
26 for AO to ZO, . . . , 26 for A9 to Z9). A serious flaw with this ’ 
scheme is that it greatly reduces the meaning that can be attached to 
a particular variable. For example, the high-level language COBOL 
allows up to 30 characters per variable name, so that names like 
NET-AFTER-TAXES, NAME-TABLE-POINTER, and 
DEPRECIATION are allowed. FORTRAN allows up to 6 characters 
and names like SUM, SPEED, and BALNCE can be used in programs! 
The majority of BASIC programs, because of the variable naming 
limitation, are terse and harder to understand. 

Many of the best modern BASICs for microcomputers have 
incorporated the feature of allowing long variable names. Microsoft’s 
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Variable Types 


Integer Variables 


Single Precision 
Real Variables 


BASIC, as incorporated in the TRS-80’s Level II, has adopted a 
compromise. A variable name can be a single letter, or it must begin 
with a letter and be followed by either a letter or a digit, so there are 
exactly 962 possible distinct variable names. Level II BASIC allows 
longer names, but only the first two characters are used by the 
computer to distinguish between variables. Also, a Level II reserved 
word cannot be contained within a variable name. Appendix D has a 
full list of all reserved words in TRS-80’s BASIC. 


Illegal in Level II 
8J (digit first) 

STAB (contains TAB) 

COST (contains COS) 

IRON (contains ON) 

STIFF (contains IF) 

POST (contains POS) 
FORMIDABLE (contains FOR) 

The programs in this book will use names of one or two 
characters only, except for a few carefully chosen names that are 
longer when their use clarifies the meaning of the programs 
significantly. 


Examples; 

Legal in Level II 
X 
V7 
AB 

ABC (same as AB) 
SUM 

SUPER (same as SUM) 
SHTTPER 


Variables are named according to their application by using a 
type declaration character as part of the variable name. The string 
variable A$ is distinct from the numeric variable A because it is 
declared as a string by the dollar sign ($), which is its type 
declaration character. 


Integers in Level II BASIC use the percent sign (%) as a type 
declaration character. Integers are whole numbers that vary in size 
between -32768 and +32767 inclusive. 


Examples: 
Integer variables 
X% 

SUM% 

NUM% 

1 % 

J2% 

COUNT% 


Typical values 
5 
0 
-8 

7982 

-3000 

-1 


Single precision real variables use the exclamation point (!) as a 
type declaration character, or they use nothing at all, since numeric 
variables are declared by default to be single precision real vanables. 
These variables are accurate to seven digits, and vary in size from 
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about-1.7x10^® to about+1.7x10^^ 


Double Precision 
Real Variables 


Conversion of 
Constants 


Examples: 


Single precision real variables 

Typical values 

A 

372.871 

V7 

-6.5 

XX 

-.09 

J! 

142. 

B2! 

4E-12 

GROUP! 

2.5E-34 


Double precision real variables use the pound sign (#) to signify 
the ability to represent 16 decimal digits of accuracy. Like single 
precision values, they vary from about -1.7x10^* to about +1.7x10^® 
in magnitude. 


Examples: 


Double precision real variables 

Typical values 

F# 

32984532891.77 

V8# 

3.141592653589793 

JA# 

.3333333333333333 

GR# 

1.000000000000001 

NUM# 

2.718281828459045 


The flexibility of programming that these three numeric precision 
types allow is bought at a price. Integer variables have a limited 
range; single precision real variables are accurate to just 7 digits; 
and double precision real variables take up more than twice as much 
memory as single precision variables. Each type has various 
characteristics, favorable and unfavorable, as table 4.1 shows. 


The conversion of a constant to internal representation can be 
a time-consuming process, and a good programmer should always be 
on guard for ways to speed up particularly slow sections of code. 
This is where some basic knowledge about the particular 
characteristics for the TRS-80 and its Level II BASIC can be very 
helpful. 

The program below does some simple additions in a loop that 
can be varied in the number of times it is executed. Both constants 
and variables appear in the calculations within the loop. The 
timings for the program’s execution are shown in table 4.2. 
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Type 

Integer 

Single Precision 

Double Precision 

Declaration 

character 

% 

! (default) 

4 

Range 

-32767 

to 

132767 

1*701411-E3S 

to 

1*701411FE38 

I*7014il33460469221-E38 

to 

1*70141183460469221fE38 

Size? 

bytes 

2 

4 

8 

Precision 
(stored 
digits) 

all in 
range 

/ 

17 

Precisipn 
< prin ted 
digits) 

ail in 
range 

6 

16 

Run time 
memory 
allocation 

5 

7 

11 

Conversion 
time to 
binary? msec 

*05-*1 

5-10 

500-1000 


Table 4.1 Variable Types and Their Characteristics 


10 'FILENAHEl 
20 'FUNCTION! 

30 'AUTHOR I 


’‘C4Pt” 

HEMO'NSTRATE declared variable» CONSTANT TIMING 
JPG DATE! 12/79 


40 ' 

50 X%=0: X~0! Xi=0! 'declare three iyees)- initialize to zero 
60 INPUT "LOOP SI7.E=: (0=STOP )" ?N: IF N=0 THEN STOP 
70 M%=1%! S=l*lt D4=» 123456789012345! 'incresients for loop 
80 ' let user select the type to be added* 

90 ' IC=inteder constant? IV=inteder variable 

100 ' SC=sindle precision constant? SV=5ingle prec* var* 

110 ' DC=double precision constant? DV=double prec* var* 

120 INPUT "TYPE (1=IC? 2=IM? 3=SC? 4=SV? 5=DC? 6=DV)"?TY 
130 PRINT "TIME BEF0RE="?RIGHTf(TIME$?5) 

140 ' now execute a simple addition N times? according to 
150 ' the user's reQuested type* note that the loop 
160 ' overhead of 0N~G0T0 and GOTO instructions is the same 
170 ' for all types of conversion or addition* 
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180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 


FOR 1=1 TO N 
ON TY GOTO 
GOTO 40 

X%=X%T1: 

X%=X%-ffi%t 

X=X-fl*lt 

x=x+s; 

X* 

X# 


10? 220? 230? 240? 250? 260 


GOTO 

GOTO 

GOTO 

GOTO 


270 

270 

270 

270 


NEXT I 
' print 


X#+.1234567890123455 
X*+Ii*5 GOTO 270 


GOTO 270 


the values snd the current tiniei 


290 PRINT XX? X 
300 PRINT "TIHE 
310 GOTO 50 
10000 END 

? X# 

AFTER=" ?RIGHT$( TIf1E$?5 

Form within 

VeriBble 

) 

loop 

Constsnt 



INT 

SNG 

DDL 

INT 

SNG 

DDL 

5 

- 

- 


~ 

— 

4 

10 

- 

- 


— 


8 

20 


- 

- 

-- 

1 

X 

15 

50 

1 

1 

1 

1 

2 

38 

100 

2 

2 

3 

n 

Z. 

3 


200 

3 

4 

5 

4 

ET 

U 

— 

500 

8 

8 

13 

10 

12 

— 

1000 

17 

18 

jC./ 

20 

23 



:===== = 



::r:rr:rx::::::r:n::r: 

r: r: rt ::z 


Execution 17 

time? per 

instruction (msec) 

18 

97 

Am / 

20 

23 

800 


Table 4.2 Timings from Program C4P1, in Seconds 


Notice that the time it takes to deal with double precision is 
negligible, so long as conversion is kept to an absolute minimum. 

This can be achieved by doing all arithmetic within the program on 
values that are stored as variables. For example, both of these 
program segments produce double precision answers to the same 
problem, but their execution times are vastly different. The first one, 
which executes a loop that contains some double precision conversion, 
executes in 80 seconds, while the second, which contains only 
previously defined variables, executes in 2 seconds. 


10 PRINT TIHE$ 

20 E#=l .00000000000001 
25 ' 

30 FOR 1=1 TO 100 
40 S#=S#+.100000000000001 

50 NEXT I 

60 PRINT S*? TIHE$ 

10000 END 


10 PRINT TIf1E$ 

20 B#=l.00000000000001 
25 C*=.100000000000001 
30 FOR 1=1 TO 100 
40 S*=S*+CI 
50 NEXT I 

60 PRINT S*? TIHE$ 
10000 END 
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Implicit Conversion A. program m<iy li3ve numerous st3.tements thst mix different 

types of variables, and a programmer who writes such mixed mode 
expressions and statements must be able to predict exactly what the 
computer will do in all circumstances. 

These rules show how the TRS-80 will treat various constants 
that appear in the program, either as a part of an expression or as 
created during the actual execution of an expression. Notice that in 
general, the precision of an answer maintains the maximum precision 
of any operand. 

Rule 1: Any constant with more than 7 digits, with a # type 
declaration character, or with a D exponent forces 
storage as a double precision value. In the examples 
that follow, the values in the PRINT statement are 
first converted as necessary, then operated upon and 
stored temporarily, and finally printed as shown. 


Inslrucliori Output 


10 PRINT 12345678-i-» 12345 
20 PRINT 12345II0+12345 
30 PRINT 123^45678 
40 PRINT ,0000000000001* 

50 PRINT -6000000000001 
60 PRINT 5000000000000 
70 X*=500001 PRINT X*-f,00005 


12345678,12345 

12345,12344999611 

123,45678 

lD-13 

-60000000000001 

5000000000000 

50000,000049999995 


Rule 2: Any non-double precision constant less than -32768 
or more than +32767 or containing a decimal point 
forces storage as a single precision value. 


Instruction 


Output 


10 PRINT 123454,12345 
20 PRINT 123,456 
30 PRINT 123,4567 
40 PRINT -81245 


12345,1 

123.456 

123.457 
-81245 


Note that if a value that is printed cannot be represented with 
either six digits for single precision, or sixteen digits for double 
precision, the value is printed in scientific notation. The following 
examples show this. 
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Instruelion 


Output 


10 PRINT tOODGOOCOOCOOl# 1EI~13 

20 PRINT .00000000000012345 1.2345E~13 


Rule 3: Any constant between -32768 and +32767 inclusive 
not containing a decimal point and not declared single 
precision with a ! or double precision with a # is 
stored as an integer value. 


When an operation is performed on two or more operands in a 
statement, the result must be predictable even though the operands 
are not all the same type. Microsoft’s Level II BASIC is not only 
predictable, but it usually produces the result that a programmer 
would have liked to get. 

(1) Most Precise Operand Rule 

The result of a +, -, or * operation has the precision of its 
most precise operand. 


Instruction 

Output 

CoBiHients 


10 PRINT 2*3.6 

20 PRINT 2*4 

30 PRINT 3+2.718281828 

40 PRINT 3.3+2.718281828 

7.2 

8 

5.718281828 

6.018281828 

INT * SNG 
INT * INT 
INT + DBL 
SNG + DBL 

-> SNG 
-> INT 
-> DBL 
-> DBL 


Note that when two different precision operands are compared, 
the computer actually compares temporary versions of the operands, 
and these temporary versions have a precision of the most precise 
operand. 


Memory Storage 
After Mixed 
Operations 


Instruction 


Output 


10 IF 2=2.00001 THEN LPRINT "YES" 

ELSE LPRINT "NO" NO 

20 IF 2.5=2.5000000000001 THEN LPRINT "YES" 

ELSE LPRINT "NO" NO 

30 IF 2=2.00000000001 THEN LPRINT "YES" 

ELSE LPRINT "NO" NO 
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(2) No Integer Division Rule 

The result of a division obeys the Most Precise Operand 
Rule, except that when it is indicated between two integers, 
both operands are converted to single precision before the 


division is performed. 



Instruction 

Output 

CoHiHients 


10 PRINT 2/3 

♦666667 

INT/INT -> 

SNG 

20 PRINT 2%/3% 

♦666667 

INT/INT -> 

SNG 

30 PRINT 2/3% 

.666667 

INT/INT -> 

SNG 

40 PRINT 2/3.5 

.571429 

INT/SNG -> 

SNG 

50 PRINT 2/3.12345678 

.64031620760893 

INT/DBL -> 

DBL 

60 PRINT 3.5/4.12345678 

.848802397293467 

SNG/DBL -> 

DBL 


(3) Integer Truncation, Otherwise Rounding Rule 

During conversion from single precision to an integer, a 
number is reduced to the largest integer not greater than the 
original number, exactly as the INT function does it. 

During conversion from double precision to single precision, 
the number is rounded up. Conversion from double 
precision to integer goes through conversion to single 
precision. 


IriSlruclion 


Output CoaBients 


10 I%=7.999t PRINT 1% 7 
20 S1=7.999999999: PRINT Si 8 
30 .J%=7.999999999: PRINT J% 8 


SNG -> INT (truncBtion ) 
DBL -> SNG (rounding) 
DBL -> SNG “> INT 
(rounding? 
then truncstion ) 


(4) Integer Boolean Operations Only Rule 

A Boolean AND, OR, or NOT between two unlike 
operands forces conversion to integer first. This rule is 
included here only for the sake of completeness. It is 
unlikely that you would ever need to use this feature. 

Instruction Output Conifflents 


10 PRINT 2 AND 3.5 2 
20 PRINT 2 OR 4.999999999 7 
30 PRINT 1.9999 OR 7.999999999 9 


531116 35 2 AND 3 
5sae 35 2 OR 5 
S3Hie 35 1 OR 8 (7.9... 
rounded up first? then 
converted to integer) 
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DEFINT, DEFSNG, 
DEFDBL, DEFSTR 


1 1 . allows a programmer to reserve sections of the 

alphabet for various types of variables. This is in effect a form of 
implicit type declaration. Instead of having to type a # character at 
every occurrence of a double precision variable, the programmer can 
declare any variable starting with that letter of the alphabet to be 
double precision. 

The general form of these statements is 
DEFtyp letter-range 

where typ is: 

INT for integer, 

SNG for single precision real, 

DBL for double precision real, or 
STR for string variables. 

and letter-range is: 

a single letter from A to Z, 
two or more letters separated by commas, 
two letters separated by a hyphen, or 
any combination of the above. 

These statements are normally used at the beginning of a program. 
Examples: 

100 DEFINT I-N 

All variables beginning with any letter I through N are integer 
such as I, J2,18, MM, NICE. 

110 DEFDBL B, C, D 

All variables beginning with the letters B, C, or D are double 
precision, such as DIG, C, COUNT, BB, B5. 

120 DEFSNG X-Z? y, R 

All variables beginning with the letters X through Z, V, or R are 
single precision. Note that single precision is the default condition 
of the computer, so this statement is not necessary except as a 
reminder to the programmer, unless it is used to override a previous 
declaration. 

130 DEFSTR A» P 

All variables beginning with the letters A or P are strings, even 
though they are not followed by a $. 
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Hexadecimal and 
Octal Constants 


140 DEFINT I» K-R? T~Z 
150 DEFSNG A» C» T-Z 
160 DEFUBL DfE 
170 BEFSTR M-0 
180 DEFINT A-Z 


The use of the DBF statements does not preclude the use of 
type declaration characters. For example, if your program has the 
statement; 


25 DEFDBL D 

the variable D in the program is double precision, the variable D% is 
a distinctly different integer variable, D$ is a string, and D! can be 
used for single precision. If the program uses D#, it will be 
considered the same variable as D when it is used. 


Radio Shack’s Disk BASIC allows the programmer to define 
constants in hexadecimal (base 16) or octal (base 8) as well as 
decimal. This feature is convenient for dealing with memory 
addresses or for manipulating specific bytes in memory. 

The prefix &H signifies a hex constant and the prefix &0 or 
& (the O is optional) signifies an octal constant. These constants 
represent signed integers in memory, so they are two bytes (16 bits) 
long. See table 4.3 for examples of this feature. 


Con Blent" 


< octal) 

(hex) 

&0 

&H0 

&1 

{,H1 

&17 

{,HF 

&20 

{,H10 

{,255 

{.HAD 

U77 

{,HFF 

{,77777 

{,H7FFF 

&100000 

{,H8000 

{,100001 

{,88001 

{,100002 

{,88002 

{,177776 

&HFFFE 

{,177777 

{,8FFFF 


stored bs 

deciffiBl 

hex bytes 

eouivsle 

0000 

0 

0001 

1 

OOOF 

15 

0010 

16 

OOAD 

173 

OOFF 

255 

7FFF 

32767 

8000 

-32768 

8001 

-32767 

8002 

-32766 

FFFE 


FFFF 

-1 


Table 4.3 Octal and Hexadecimal Conversions 
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VARPTR 


Th® following example illustrates the use of hex conversion as a 
possible aid in program writing. If you become more familiar with 
the hexadecimal representation of certain memory addresses, such as 
hex 3C00 being the first address of the screen buffer area, you may 
take advantage of this feature as illustrated here. 


ExBitiFie Result 

110 FOR I=( &H3C00 ) TO (&F13FFF ) The screen buffer is et 

RND(64)F127 stemory addresses from 3COO 

I to 3FPF, so this sedaent 

Places a random graphic 
character tsee the next 
chapter) on every position 
of the screen* 


This function of Level-II BASIC returns the address of its 
argument. The argument is a variable name and if it has not been 
defined, the computer prints an error message. 

When the argument’s variable is numeric, whether it is integer, 
single precision, or double precision, the address that is returned is 
that of the least significant byte (LSB) of the variable. The other 
bytes are from 1 to 7 bytes past the returned address, with the 
address of the most significant byte (MSB) being the largest. 

When the argument of the VARPTR function is a string variable, 
the value returned is the address of the length of the string and the 
two-byte address for the string itself is in the next two bytes. 

The VARPTR function is useful for passing the addresses of 
variables back and forth between assembly language routines and 
BASIC programs, but it finds little use elsewhere. 

With what you know now about the screen’s buffer area and 
the computer’s memory representation of variables, you are ready to 
explore graphics, which many programmers consider to be the most 
exciting challenge in a microcomputer. The following chapter 
discusses graphics in detail, and includes a wealth of examples for 
you to try. 
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Graphics There are three distinctly different ways to produce pictures on 

the screen of a TRS-80. The first is as old as computers; lines are 
printed one at a time on the screen, just as if it were paper. The 
other two methods are more accommodating to the programmer, 
allowing considerable flexibility and some rather stunning graphical 
displays. 

This chapter will discuss all three methods and show by example 
what can be done with a little care and imagination. 


Line Printer 
Graphics 


Line printer graphics is called what it is because anything that 
can be done on the screen can also be done on a line printer. It can 
be used on almost any computer and with most computer languages. 
In many ways it is the most powerful method of graphing. We 
propose to show you by example some of the various pictures that 
can be produced with line printer graphics. 


Graphing with Problem: Represent the sine and cosine functions graphically 

Tabs for all values between 0 and 360 degrees. 
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10 'FILENAMEI "C5P1" 

20 'FUNCTION: GRAPH SINE AND COSINE FUNCTIONS 
30 'AUTHOR : JPG DATE: 12/79 

40 ' 

50 ' K^corwersion consiBnl for desSrees to rediene- 
60 K=3,14159/180 

70 ' drew exis of vslues -1 to 1 
80 LPRINT “ “5 

90 FOR I=-l TO 1 STEP *2 
100 LPRINT USING "«.# "jl? 

110 NEXT i: LPRINT 

120 'print S for einej C for cosine et eppropriete position, 

130 'eech point is 10 decrees epert, 

140 FOR D=0 TO 360 STEP 10 
150 'convert decrees to redisns 
160 R=Ii*K 

170 'deter-Biine positions of the S end C cherecters, 

180 S=25*SIN(R)-f32: C=25*C0S( R )-f32 

190 ' if enSle is e ouedrent divider then print its veiue 
200 ' 3 nd print the grid line 

210 IF INT( ( D+90 )/90 )=( D+90 )/90 THEN LPRINT D?t GOSUB 260: GO.O ^.,0 
220 'if cosine is less? print C then S? otherwise reverse. 

230 IF C<S THEN LPRINT TAB(C)"C" TAB(S)’'S" 

ELSE LPRINT TAB(S)"S" TAB(C)"C" 

240 NEXT D 
250 STOP 

260 LPRINT TAB(5)5" ” ? ^ 

270 FOR I=-l TO .8 STEP .21 LPRINT "4-NEXT I 

280 LPRINT "4": RETURN 
10000 END 
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Another way that tabs can be used in a design is to symbolize 
them in a list of data statements. The program below was written by 
Steve Grillo to draw the Starship Enterprise. We have included just a 
portion of its three pages of data statements. Note that the program 
analyzes the data that it reads and executes its LPRINT statements 
according to the contents of the DATA statements. 


10 'FILENAHE; "C5P2" 

20 'FUNCTION; PRINT A PICTURE OF THE USS ENTERPRISE 
30 ' AUTHOR : SPG BATE! 6/79 

40 ' , 

50 ' Here are e few reHisr-Ks concerniriS the progranu 


60 ' 
70 ' 
80 ' 
90 ' 
100 ' 
110 •' 
120 ' 
130 ' 
140 ■' 


About the CtatB eleienieriis; 

TIO = TAB (10 ) 

ANY STRING = Print the following text 
R = Carriage Return 
0 = Left BracRet 

U = Right BracRet 

A = Top to bottom diagonal (opposite 

M = A comma (?) 

S = A auotation marR (“) 


of 


H/H ) 


150 CLEAR 300; DEFINT A-Z 

160 READ A$; IF A$="ENri" THEN STOP 

170 IF A$="R" THEN LPRINT CHR$(13)?; GOTO 160 

180 READ B$; IF Bf='‘END" THEN STOP 

190 FOR N=1 TO LEN(B$); C$=^MID$( B$» 1) 

200 IF C$="Q" THEN B$=HIIi$( B$f 1?N~1 )+CHR$( 91 )-fHID$( B^fN-fl ) 

210 IF C$="W" THEN Bf=MID$( B$i> 1 fN-1 )tCHR$( 93 ITMIBf ( B$?N-f 1 ) 

220 IF CI="A“ THEN B$-HID$( B$? 1 >N~1 )+CHRf( 92 )iHIl!t< BffN-f 1 ) 

230 IF C$="H“ THEN Bf=MID$( B$? 1 jN-I )'fCHR$( 44 ITHIDfl B$jNTI ) 

240 IF C$="C" THEN B$=MID$(B$f1?N-1HCHRK 58 )fMID$(Bf jNT1) 
250 IF C$="S" THEN B$=HID$< B$! 1 fN~l )-fCHR$( 34 B$jN+1 ) 

260 NEXT N; if LEFT$( A$!-1 )="S” THEN 280 
270 LPRINT TAB( imL(Hiri$(A$f2) ))JB$?; GOTO 290 
280 LPRINT STRING$(UAL(Hiri$(A$!2))?” ” )»B$! 

290 READ A$; IF LEFT$( A$.1 )="T" THEN 190 ELSE 170 


900 ' 

910 '■ This is only a partial date listing 

920 ■' for the Enterprise 

930 ' 

1000 DATA T22»lt#5RjT21jQ# ##jR!T22!## M#?R?T22j4 H* 

1010 DATA R»T22f#-H#?RrT22!# !#irRjT22f# M#fRi'T22 

1020 DATA * QW M#»R»T22»* QW H#»R»T22,* QU -ill 

1030 DATA RjT22?t !*fRjT22?l MI»RjT21y*l MlfR»T21 
1040 DATA *1 HI!iRjT 20j/tl f1ljR?T20 

1050 DATA T20jS: I HI?RjT19y/* I- HIjRjTI? 

1060 DATA t 4 AIA?RyT19y4. I Ml^i-RrT19i-!R /I MliR 
1070 DATA RfTlSj/iR/ I H40trR?T18?S/ 4 HIO'IsiRirTlS 

1080 DATA t I HIOiRfRjTlS?* /# HtO fjRjTlS 

1090 DATA I / I MtO ^:?RfT185^-/ # HIO ^jR»T17 
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Using Memory to 
Hold the Picture 


Problem: Display the thermal gradient at equilibrium 
throughout a water-carrying rectangular copper pipe held at 0°C if it 
is covered with a heated lid at 100°C, and contains a rectangular 
heater at its center heated at 200°C. 



€-\'cV^6Dir 
oJ: lOO*C 


zoo'c 


Wa-\-er at 


This problem is a modification of an old FORTRAN problem 
found in A Guide to FORTRANIVProgramming, Daniel D. 
McCracken, p. 98 (Wiley, 1965). 

Solution: (1) Consider the pipe’s dimensions to be 40 units 
wide and 30 units deep; both sides and the bottom are the cold 
copper, and the top is the hot heating element. (2) Reserve a 
30x40 integer array X in memory, with X(0,1) to X(0,39) held at 
a value of 100; X(30,0) to X(30,40), X(0,0) to X(0,30), and 
X(0,40) to X(30,40) held at a value of 0. These are the edges of the 
pipe. The 6-unit wide by 4-unit deep center heating element is held 
at 200 degrees. (3) Proceed throughout the array wherever there is 
water, from X(l,l) to X(l,39), then X(2,l) to X(2,39),. . . through 
X(29,l) to X(29,39), modifying each point on the basis of its 
neighbors according to the formula: 

X(I,J) = (X(I-l,J)+X(I,J-l)+X(I+l,J)+X(I,J+l))/4 

This formula calculates the temperature of a point by averaging the 
temperatures of that point’s four neighbors. (4) Repeat Step 3 for 
as many iterations as the user wishes. (5) Convert all numeric values 
of X, one 64-character line at a time, from numeric to graphic 
symbols using this chart of symbols to indicate various temperature 
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ranges. 


Integer value 

0-9 

20-29 

40-49 

60-69 

80-89 

100-109 

120-129 

140-149 

160-169 

180-189 

200 


Graphic symbol 

A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 


All temperatures in the unspecified intervals are symbolized with a 
blank. (6) Paint the picture on the screen one line at a time. 


10 'FILENAME: "C5P3" 

20 'FUNCTION: SHOW THERMAL GRADIENTS USING RELAXATION 


30 ' AUTHOR : JPG 

40 CLEAR 300: DEFINT A-Z 

50 DEF FNA<X) = 5 * X / 12 

60 DEF FNB(X) = 7 * X / 12 

70 IT = 100 

80 DEPTH = 30: WIDTH = 40 
90 LL = FNA(WIDTH): LR 
100 LT = FNA(DEPTH): LB 


date: 3/80 

'bII integer- isBih 
'FNA is proportion of pipe width 
'FNB is proportion of pipe depth 
'IT is totel iterations 
'set UP grsph size 

FNB(WIDTH) 'set four corners of pipe 
FNB(DEPTH) 


J-S CENTER TEMPERATURES" JLID,EDGE,CENTER 

At =‘GLIDITAB(26)"Edge ='GEDGEf 

130 LPRINT TAB( 43)"Center ="JCENTER 
140 LPRINT 
150 LPRINT 

160 LPRINT "Dimensions: Depth ="5DEPTHJ 

170 LPRINT TAB( 26)"Width =" jWIDTH,*TAB( 39 )" Iterations ="5IT 
180 LPRINT 

oArt rnc S$(21) 'S$ is symbol for temperature 

200 FOR I = 0 TO 20 STEP 2: READ S$( I): NEXT I 
210 DATA A, B, C, D, E, F, G» H, I, J, K 
220 ' every other symbol is blank 


230 FOR I = i TO 19 STEP 21 S$( I) = " NEXT I 

240 ' Set starting temperature from user 

250 INPUT "INITIAL TEMPERATURE (0 TO 200, NEG» = RANDOM)*5T 

260 IF T>=0 THEN 310 

270 ' set temperature to random - begin 

280 FOR 1=1 TO DEPTH-1: FOR J=1 TO WIDTH-1: X<I,J )=RND( 200 ) 
290 NEXT J,i: GOTO 330 


Chapter 5 Graphics 


61 



' set leffiFerBlure to user's surges lion 

FOR 1=1 TO EiEPTH-i: FOR J=1 TO WIDTH-K X(IrJ)=Tt NEXT J?I 
' set lid snd edge temperelures 

FOR 1=0 TO width: X(0fI)=LID: X(DEPTHi>I )=F.DGE: NEXT I 
FOR 1=0 TO depth: x(i»o)=edge: x< IjWidth)=edge: next i 

;ort[Tlo to URt X(I,a)=CENTER: NEXT T,I 

' now coBies the tedious portion 

FOR N=1 TO it: I = O: GOSUB 460 
' cslcui3tions> The buss loop 
FOR I = 1 TO depth - i: FOR J = 1 TO WIDTH - 1 
-rj.v IF I > LT AND I < LB AND J > LL AND J < LR THEN NEXT J 
420 X(I »J )=< X( 1-1? J >FX( I+l )FX( IjJ-1 )+X( I»J+1 ) )* ‘Sj 
430 NEXT j: GOSUB 460: NEXT i: GOSUB 460: NEXT N 
GOTO 440 ' freeze screen 

' subroutine to cslculste end print one line 
A$="": FOR K=0 TO WIDTH 

' checK if center portion — don't cBlculste it 
IF K > LLFl AND K < LR-1 AND I > LT+1 AND I < LB-1 
THEN A«=A$F'’#" ELSE A$=A$+S$( X( I?K )/10 ) 

490 NEXT K 


300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 


440 

450 

460 

470 

480 


500 

510 

520 

530 

540 

550 

560 

570 


IF DEPTH >15 PRINT A$> N? I ELSE PRINT @ 1*64? Af? N? I? 
IF INK N/10 )*10<>N OR lOO THEN 560 

lprint: lprint: lprint 

LPRINT TAB( 15)"0utput Greph" 

LPRINT TAB< 15)"-"TAB( 43 )" Iteretion" 

IF INKN/10)*10=N THEN LPRINT A$?TAB( 46 )?N?TAB(54 )?I 
RETURN 


10000 END 


TeniperBlurest Lid = 1.00 Edae = 0 Center = 200 

Iiimensionst Depth = 30 Width = 40 Iterations = 30 


Output Graph 


Iteration 


^ppppfrfrpfrppppppfrpppppppFFPFFFFFFFFFFFFFFA 

ACDH 

AB CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC BA 

A BBB ^ 

AAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAA B AAAAAAAAAAAAAAAAA 
AAPiAAAAAAAAAAAA B B AAAAAAAAAAAAAAA 

AAAAAAAAAAAAAA BC DBDB C AAAAAAAAAAAAAA 
AAAAAAAAAAAAA BCDE FF EBC AAAAAAAAAAAAAA 
AAAAAAAAAAAA BCD HHHH DCB AAAAAAAAAAAAA 
AAAAAAAAAAAA B E KKKKKKGE B AAAAAAAAAAAAA 

AAAAAAAAAAAA E AAAAAAAAAAAAA 

AAAAAAAAAAAA E AAAAAAAAAAAAA 

AAAAAAAAAAAA B EGKKKKKKGE AAAAAAAAAAAAA 

AAAAAAAAAAAA BCD GHHHHG DCB AAAAAAAAAAAAA 
AAAAAAAAAAAAA BCDE EDC AAAAAAAAAAAAA 

AAAAAAAAAAAAA BC DDD C B AAAAAAAAAAAAAA 
AAAAAAAAAAAAAA B B AAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAA BBB AAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
j?iA AAA A AAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
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Output Greph 

AFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFA 

AB C 

A B CCCCCCCCCCCCCCCCCCCCCCCCCCCC 
AA BBBBBBBEfBBBBB BBBBBBBBBBB AA 

•^aa BBBBBBBBBBBB AAA 

AAAAAAAAAAA BBBBBBB AAAAAAA 

AAAAAAAAAAAAA BBBBBBBB AAAAAAAAAAAAA 

AAAAAAAAAAAAA BB C B AAAAAAAAAAAAAA 

^ ^ AAAAAAAAAAAAA 
AAAAAAAAAAAA B CD EE G B AAAAAAAAAAAAA 

^ AAAAAAAAAAAA 

^ ^ F B AAAAAAAAAAAA 

AAAAAAAAAAA BCD KKKKKK DCB AAAAAAAAAAAA 
AAAAAAAAAAA BCDFHK#*##KHFDCB AAAAAAAAAAAA 
BCDFHK#*##KHFDCB AAAAAAAAAAAA 
AAAAAAAAAAA BCD KKKKKK DCB AAAAAAAAAAAA 
^ ^ ^ AAAAAAAAAAAA 

aSaaaaaa^^S? ^ ^ AAAAAAAAAAAA 

AAAAAAAAAAAA BCD DCB AAAAAAAAAAAAA 

AAAAAAAAAAAAA BB C C B AAAAAAAAAAAAAA 

AAAaaaaaSaaSSSa rr aaaaaaaaaaaaaaa 

AAAAAAAAAAAAAAA BB AAAAAAAAAAAAAAAA 
aaaaaaaaaaaaaaaAAA AAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
hAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
hAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
hAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


Iteration 
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12 
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16 
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Output Graph 
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The previous output shows the effect of starting the pipe’s 
water temperature at 0 degrees. In McCracken s original work, no 
mention was made of initializing the water at any other temperature. 
We tried it at an average setting, that is, half way between heater and 
edge, then at random settings from 1 to 200 degrees. Although the 
latter case is not realistic, it seems to be the most effective in reaching 
equilibrium quickly. Remember that the goal of this problem is to 
produce a visual representation of the equilibrium condition in the ^ 
pipe, so the starting temperature can be anything, even an unrealistic 
random value. 


TemperBturest Lid -- 100 Edse = 0 


Center = 200 


Dimensions: Depth = 30 Width = 40 Iteretions = 30 


Output Greph 
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Output Graph 
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B 
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B E 
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AA B C BB EE F G GG FF EEE B CC 

AA B C BB EE FF FF EEE BB C 

AA B C BB EEE FFFFF EEE BB C 
AA B CC BB EEEE EEEEE BB C B A< 

AA lit, ^ A# 

AA BB CC BBBBBBBBBBBBBBBB CC BB M 

f^CCCC CCCCC B A^ 


B f 
B f 
B ^ 
B A 
B A 
B A 
B A 
B A 
B A 
B A 
B A 
B A 
B A 
B A 
BAA 
B AA 
B AA 


AA 

AAA BBB CCCCCCCCCCCCCCCCC BB AAA 
hAnA BBBBBBB BBBBB AAAA 

BBBBBBBBBBBB AAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


I teration 

30 0 

30 1 

30 2 

30 3 

30 4 

30 5 

30 6 

30 7 

30 8 

30 9 

30 10 

30 11 

30 12 

30 13 

30 14 

30 15 

30 16 

30 17 

30 18 

30 19 

30 20 

30 21 

30 22 

30 23 

30 24 

30 25 

30 26 

30 27 

30 28 

30 29 

30 30 
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Histograms or 
Bargraphs 


The pictorial representations variously called histograms or 
bargraphs are easy to understand but in some ways difficult to 
program. If the bars vary in length horizontally, they are trivial to 
program, but the descriptive text is arranged contrary to custom. 

Problem: Draw a histogram of monthly rainfall for one year. 
The rainfall in inches is stored in the array R dimensioned 12. 

Solution 1: Horizontal arrangement of bars. 


10 'filename; ’■C5P4" 

20 'function; bargraph of rainfall 

30 ' AUTHOR ; JPG BATE; 3/80 

40 CLEAR 500; HIM Mt(12)» R(12) 

50 ' input section 


60 

FOR I 

=1 TO 12 ; 

READ 

Mf( I 

); 

NEXT I 


70 

FOR I 

0 

READ 

R( I) 

«> 

* 

NEXT I 


80 

DATA 

Jan> Fehn 

Mar-j 

Apr f 

M 

ay? Jun 


90 

DATA 

Jui? Aug? 

Sep! 

Oct! 

N 

ov! Dec 


100 

DATA 

5123j 5> 

79? 3. 

02» 

2. 

44» 2*62! 

3*99 

110 

DATA 

4.75» 4. 

20» 2. 

Ol! 

3. 

49? 4*21? 

4 f 05 


120 LPRINT "Month Inches of rsinfell" _ 

130 ' celcuiete constent for Keeping bar unoer 40 
140 L=0 

150 FOR 1=1 TO 12 ; IF L<=R(I) THEN L=R(I) 

160 NEXT i; K=40/L 

170 ' loop to print graph 

180 FOR 1=1 TO 12 

190 LPRINT " “;M$(I);" “5STRINGf(R< I )? 

200 LPRINT TAB(55) USING ^Rll) 

210 S=SiR(I>; NEXT I 

220 LPRINT STRING$( 60»"=") 

230 LPRINT "Ave"?; A = S/12 

240 LPRINT STRING$( A*K-2j"$" )j 
250 LPRINT TAB(55) USING jA 

260 LPRINT "Twelve Hionth total" 5 

270 LPRINT TAB(54) USING SS 

10000 ENH 
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Month 


Inches of reinfell 

Feb 

Her UttUttUUUtUtU 

Apr uttuttittmm 

Mey ttttuttmuttut 

Jun tu-ttututtmuttuttutt 

jui ntunuunututtuttuttuu 
Aus tuuttutuuttumututtu 

Sep ttttttttttttt 

Oct tutututtuttuuutm 

Nov utnunutuuuttutuuM 

Dec uttutttuuttutttumtt 
Twelve Bionih to tel 


5*23 

5,79 

3,02 

2,44 

2,62 

3,99 

4,75 

4.20 
2,01 
3,49 

4.21 
4,05 


3,82 

45,80 


Another bargraph could be arranged so that the bars are 
vertical, which is the more typical display. The following program 
does this, and also shows the use of a list of sentinels, or flags in 
the FLAG array. 

Solution 2; Vertical arrangement of bars. 


10 'FILENAME: "C5P5" 


20 'FUNCTION: REVISED RAINFALL GRAPH 
30 ' AUTHOR : JPG DATi 

40 DIM FLAG(13)» M$(13)j R(13) 

50 ' reed in the dete 
60 FOR 1=1 TO 13: READ M$<I ): NEXT I 
70 FOR 1 = 1 TO 12: READ R( I ): NEXT I 
30 DATA Jen? Febj Mery Apr-y Mey? Jun 


4/80 


90 DATA July Audy Sepy Octy Novy Decy Ave 
100 DATA 5,23y 5,79y 3.02y 2,44y 2,62y 3,99 
110 DATA 4,75y 4,20y 2,01y 3,49y 4,21y 4,05 
120 LPRINT TAB( 20 )y "Reinfell by ntonth" 

130 LPRINT TAB(20)y’’-- 

140 LPRINT 


luO celcuiete constent for Keepind the heidht under 20 lines 
160 L^O 

170 FOR 1=1 TO 12: IF L<R( I ) THEN L=R(I) 

180 S=SFR11) 'celcuiete the sust 
190 NEXT i: K=L/20: R(13)=S/12 
200 FOR J=20 TO 1 STEP -1 
210 FOR 1=1 TO 13 


220 IF R(I)<J*K THEN 250 

230 IF FLAG(I)=1 LPRINT TAB( I*4“4 )USING "7, % "yM$(I)f: GOTO 250 

240 IF FLAG( I )=0 LPRINT TAB( 1*4-4 )USING "♦,♦ "yR(I)y: FLAC(I)-1 
250 NEXT i: LPRINT »hw;y, |-LAG(I)-1 

260 NEXT J 

10000 END 
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RsinfeU by monlh 


Table-Driven 

Pictures 


5.8 

Feb 


5.2 

Feb 





Jen 

Feb 





Jen 

Feb 





Jan 

Feb 





Jan 

Feb 





Jan 

Feb 




4.0 

Jan 

Feb 




Jun 

Jan 

Feb 




Jun 

J an 

Feb 

3.0 



Jun 

Jan 

Feb 

Har 


2.6 

Jun 

J an 

Feb 

Mar 

2.4 

May 

Jun 

Jan 

Feb 

Mar 

Apr 

Hay 

Jun 

Jan 

Feb 

Mar 

Apr 

May 

Jun 

J an 

Feb 

Mar 

Apr 

Hay 

Jun 

J an 

Feb 

Mar 

Apr 

Hay 

Jun 

Jan 

Feb 

Mar 

Apr 

Hey 

Jun 

Jan 

Feb 

Mar 

Apr 

May 

Jun 

Jan 

Feb 

Mar 

Apr 

Hay 

Jun 


4.8 







Jul 







Jul 

4.2 



4.2 



Jul 

AU£S 



Nov 

4.1 

3.8 

Jul 

AuS 


3.5 

Nov 

Dec 

Ave 

Jul 

AuS 


Oct 

Nov 

Dec- 

Ave 

Jul 

Aug 


Oct 

Nov 

Dec 

Ave 

Jul 

Aug 


Oct 

Nov 

Dec 

Ave 

Jul 

Aug 


Oct 

Nov 

Dec- 

Ave 

Jul 

Aug 


Oct 

Nov 

Dec 

Ave 

Jul 

Aug 

2.0 

Oct 

Nov 

Dec 

Ave 

Jul 

Aug 

Sep 

Oct 

Nov 

Dec 

Ave 

Jul 

Aug 

Sep 

Oct 

Nov 

Dec 

Ave 

Jul 

Aug 

Sep 

Oct 

Nov 

Dec 

Ave 

Jul 

Aug 

Sep 

Oct 

Nov 

Dec 

Ave 

Jul 

Aug 

Sep 

Oct 

Nov 

Dec 

Ave 


Many graphic designs can be summarized in the form of a table 
of starting addresses and lengths. For example, the design of the 
numeral 1 could be stored in a two-dimensional integer array D(12,2) 
in which the first subscript represents the starting column and the 
second subscript represents the string length. The following program 
prints the numeral 1 shifted right approximately 30 spaces. 


10 'FILENAHE: "C5P6“ 

20 'FUNCTION*. YABLE-DRIUEN DIGIT 
30 ' AUTHOR t JPG 
40 DEFINT A-Zl DIM D(12»2) 

50 FOR 1=1 TO 12*. FOR J=1 TO 21 
60 DATA 31» 3» 30»'4» 29» 5)-'31» 
70 DATA 31» 3» 31» 3» 31» 3» 30? 


IlATEl 12/79 

READ D(I»J)1 NEXT J»I 
3, 31»13, 31» 3 
5» 30f 5» 30» 5 


80 FOR 1=1 TO 12 
90 LPRINT TAB(D(Ifl))» 


STRING$( D(I»2)f"r ) 


100 NEXT I 
10000 END 
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Picture Within 
Program 


ttt 

%%%%% 

uF 

ui 

ttt 

ttf 

ttt 

ttt_ 

ttttt 

ttttt 

ttttt 


The graph of this digit is hardly representative of the many such 
designs that could be done, particularly since it is solid throughout; 
each printed line is made up of just one string. The Starship 
Enterprise printing program shown earlier (program C5P2) includes 
a number of features that lend flexibility to this technique. That 
program requires the printing of one or more strings per line, so it 
uses a signal value which has to be included in the table. This table 
is really a series of DATA statements, and the signal value tells the 
computer to return the cursor for the production of another line. 


The simplest procedure for painting a picture is to contain the 
design itself within the program. For example, the output of 
program C5P7 is obvious. 

This technique wastes memory, because each line that is printed 
is stored in its entirety. However, it can be useful as an intermediate 
tool to develop pictures, from which data tables can be designed. 

Program C5P8 is one last example of table driven graphics. It 
was written by Steve Grillo and his goal was to write a program that 
would produce banners of his choice on the screen. It does this, and 
more: You can select whether you want the banner displayed on the 
screen or printed on paper, and you can select the width of the 
letters. The output hints at the power of the program. 
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10 'FILENAME; "C5F'7" 

20 'FUNCTION; PICTURE OF SNOOPY 
30 ' AUTHOR ; SPG 
40 CLS; CLEAR 1000 
100 LPRINT " 


date; 


2/80 


no LPRINT 
120 LPRINT 
130 LPRINT 
140 LPRINT 
150 LPRINT 
160 LPRINT 
170 LPRINT 
180 LPRINT 
190 LPRINT 
200 LPRINT 
210 LPRINT 
220 LPRINT 
230 LPRINT 
240 LPRINT 
250 LPRINT 
260 LPRINT 
270 LPRINT 
280 LPRINT 
290 LPRINT 
300 LPRINT 
310 LPRINT 
320 LPRINT 
330 LPRINT 
340 LPRINT 
350 LPRINT 
360 LPRINT 
370 LPRINT 
380 LPRINT 
390 LPRINT 
400 LPRINT 
410 LPRINT 
420 LPRINT 
430 LPRINT 
440 LPRINT 
450 LPRINT 
460 LPRINT 
470 LPRINT 
480 LPRINT 
490 LPRINT 
500 LPRINT 
510 LPRINT 
520 LPRINT 


XXXX" 

X XX" 

X Ut X 
tUtt X 
XXXX tttUtt XXX 


X 


XXXXX" 


XX X tutu XXXXXXXXX 
XX X UU X 

X XX XX 


•X 

■x 

•X 

'X 


// 

// 

XXX// 


//XXXX 
X 
X 


X 

X 


X 

X 

X 


X 

X 

X 

X 

X 


XXX XX" 

XXXX XX" 

XX XXX" 
XU X" 

X XtUX” 

X XXXX" 

XX” 

XXXXXXXXXXXXXXXXXX" 

X" 


X 

X 


X" 

X" 

X 
X 

XXX X X 

X X 

< X XXXXXXXXA 

XX XX X 

XX XXXX xxxxxx/ 

XXX xx*** 

xxxxxxxxxxxxx t t 

t—t X X 
t-t t XXX X 
t- t XXX 

t~ tx 

t- tx X 
t~ tx X 
t- txx X 
t txt X 
t tx t X 

t t XU X 
t t XU XX 
t tt XU X 
t tt Xt XXX 


* tt 
t t t 
t t t 
t t 
t t 


=:z:=z:=:tUUUUt $ 
====$ t 

530 LPRINT "-==~-=-==UUUtUt 
10000 END 


X 

XXXX 
X 

XX 
X 

XX XXXX 
XXXX 

X 

X 

/XXXXX 

X 


XX" 

XXX XX" 

X XX X" 

XX X XXXX" 

XX XX X" 

X X XX" 

X XXXX" 

< X" 

X" 

X" 

X” 

X" 

XXX” 

XXX" 

XX" 

X" 

X" 

X" 

X" 

X" 

X" 

X" 

XXX" 

X X" 

X X" 

X XXXXXXXXA' 
XXXXXXXXA 

) A 

A A )XXXXX' 


XXXXXXXXXXXXXXXXXXXXXX" 
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10 'FILENAME; "C5P8" 


20 ' 
30 ' 
40 ' 
45 ' 
50 ■' 
60 ' 
70 ' 
80 ' 
90 ' 
100 
no 
120 


function; to print messages on the screen or printer 
AUTHOR ; SPG date; 6/79 

dels lines; 1000-1070 

nisJor subroutines; 

2000 converts the decimel number to binery end 
Plots the proper pixels on the screen 
3000 Plots B lerde word (E$) on the screen st XrY 
4000 initiBlize metrix P(NjB) usins the dsta 
' 5000 stores 6 power of 2 in arrsy 0 

6000 sccepts 3 teniPorsry string from the user end 
if desired? copies the screen to the printer 


130 ' 

500 CLEAR 200; DEFSTR Al DEFINT B-Z; DIM P<91f8) 
510 GOSUB 4010; GOSUB 5000 

520 CLS; INPUT "WOULD YOU LIKE A SAMPLE MESSAGE" ;A 
530 IF A<>"YES" THEN 700 


600 CLs; wniTH=i; e$="letter"; x=3o; y=o 
X=30; Y=15; GOSUB 3000; "Steve"; 
E$="Grillo"; X=35; Y=36; GOSUB 3000; 
INPUT S$ 

700 Y=o; H=o; cls 


; GOSUB 3000; E$="By;"; 
X=0; Y=25; GOSUB 3000; 
PRINTO950 f"«CR»" f; 


710 PRINT " Note;" 

720 PRINT " To print lower CBse messeges? hold the" 

730 PRINT " shift Key while typing»" 

740 PRINT 

750 H=HPi; IF H>5 THEN 810 

ELSE LINE INPUT "TYPE IN THE WORD ('END' TO STOP); ";E$(H); 
IF E$(H)="END" THEN 810 


760 WIDTH(H)=0 

770 INPUT "WHAT WIDTH (1-4) WOULD YOU LIKE"?WIDTH(H); 
IF WIDTH(H)=0 THEN WIDTH(H)=1 


780 X( H )=0 

790 INPUT "FIRST HORIZONTAL POSITION OF THIS WORD (>=0)"?X(H) 
800 print; GOTO 740 

810 print; print 

850 print "DO YOU WANT THE MESSAGE SENT TO THE PRINTER" 

860 INPUT " 1=YES 2=N0"jP1 

900 cls; for 1=1 TO H-i; x=x(i); width=width( i ); e$=f$(I); 

GOSUB 3000; Y=Yi9; NEXT i; GOSUB 6000 
910 GOTO 520 

920 ' lines 1000-1070 hold sll of the dstB 

930 ' for the charBcters 

940 ' 
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FiATA -2f-2^-2,95,-U7,-2,7,-1,20 f 127,2iiA27,2^ f 

-Iy4»42?127?42?16?-lf67?32?19j8f 100?2?97f-l?48f74!.69i.l8!r32?64f 
■-I?4?2?l»-lj28?34?65f--lf65»34y28j-1^34?20jl27y20»34f-lf8?8jl27» 
3>8!.--lf88f56j-l»8f8f8f8?~lir329 80?32j"l?64?32?1.3?8 54s2f--l 
1010 DATA 28?34f65?735?34f28?~1 f66jl27f64f-l j 669 33?64? 17y64?9? 
7T?~i?33?‘64?l?72f5?74?49?-lfl6?8y20f2?125?16f~l?39?64?5?64?5? 
64?57?-l?48?72?4f74fl?72?48?“l?65?32?17f8?5f2?l?-l?54?73f-2?73? 
~2?73?54?~l?6?9f64?41?16f9?6?“l *34?85?34?”1 ?90 *^>3*26*“! 

1020 DATA 8*-2*20*-2*34?-2?65*-1*20*20*20*20?-1*65?-2*34?-2*20* 
-2?8*~l?2*l*-2»93*-2*5*2?-l*62?65*~2*89?84?14?-l?120?20*18*17* 
18*20?120*-1*65*127*73*73*54?-l*62*65*65*65?34?-1*65?127*65*65? 
62*-1*127*73*73*65*-1*127*9*9*1?-1*62*65*65*81*50*-l 
1030 DATA 127*8*8?127*-1*65*127*65*-1*48*64*65*63*1*-1*127*4*8* 
f8732*65?-l* 127*64*64*64*-!?127*2*4?8*4?2*127*“1*127*2*4*8*16* 
32?127*-1*62*65*65*65?62?-l*127*9*9*6*-l*62*65*65*17*33* 
94*~1*127*9*25*38*64*-1 

1040 DATA 38?73?73*73*50?-l*l*l*127?l*l*~l?63*64*64*64*63*-l* 
15ri6f3T*64f32?16?15*-l?63*64?32f24*32*64*63*-!*65*34*20*8*20* 
34?65?-l*1*2*4?120*4*2*1*-1*65*32*81*8*69*2*65*”1*4*6*127*6*4* 
-1?16?48?127*48*16*-1*8*20*42*8*-1*8?42?20?8*-l*64*64*64*64f“l 
1050 DATA 62?65?-2*89*84*14?-l*32*84*84*84*40*-1*127*68*68*68* 
56*-l?56?68?68*68*72f-l*56*68?68*68*127*-l?56*84?84*84*8*-l*4* 
126*5*1*2*-l*72*84 * 84?84*106?-1*127*4*4*4*120*-1*68*125*64?-1? 
32*64*64*64*61f-l*127?8?20?34*64*-l*65*127?64 
l i60 DATA -1*124*4*120*4?120*-1*124*4*4*120*-1*56*68* 

63768*Sr*-!*124*20*20*20?8*-l*56*68*68*20*36*88* 

~1* 124 ? 4 *4? 4 *8 

1070 DATA -1*R,84*84*84*32*-1*4*63*68>64*32?-1*60*64*64*124*-1? 

12?16*32*64*32*16*12*-1*60*64*32*16*32*64*60*-1*68*40*16*40*68* 

-1?12!805S0*80*44?-l*68?32*68*16?68*8*68f-999 

2000 ' subroutine to chen^e decistsl # to biner-y 

2010 ' end plot the discrete pi>;els on the screen 

2020 FOR y=l TO 71 W-OCV)! IF D-U<0 THEN 2090 

2030 D=D-y 

2040 FOR R=1 TO UIDTH 

2050 IF XIR<128 AND Y-Vi7<48 THEN 2070 

2060 print: print " tU OUT OF BOUNDS ERROR 1 STOP 

2070 SET(XTR?Y-Uf7) 

2080 NEXT R 

2090 NEXT U: X=X-fUIDTH-l I RETURN 

3000 ' subroutine to plot e word (E$) on the screen st X?Y 
3010 FOR G=1 TO LEN(E$): H=ASC( MID$( E$*G*1))-311 B=0 
3020 B=B-fi: IF P(M*B)=0 THEN 3030 ELSE D=P(H*B)t X=X-M t 
GOSUB 2000: GOTO 3020 
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3030 X=Xi5; NEXT G: RETURN 


4000 ' subroutine to initisiise metrix P<NjB) using 
4005 ' the dsts in lines 1000-1070 

4010 CLSJ B=0: print: print "LOAIiING CHARACTER - ”i 
4020 FOR N=1 TO 91 

READ C$: C=VAL(C$): IF C$="-l" THEN 4050 FIRE 
IF OO PRINT@85 jCHR$<N+ 31 )f 

IF C=-999 GOTO 4070 ELSE B=B-fi: P(NfB)=C: GOTO 4030 
E=0 


4030 

4040 

4050 


4060 NEXT N 
4070 RETURN 

OOOo ' subroutine to store 6 rowers of 2 in srr 
5010 FOR H=1 TO 71 0( M )=2C(7-H>: NEXT HI RETURN 


ey 0 


6000 PRINT@950f"«CR»'S: INPUT S$ 

6010 IF Pl=2 THEN RETURN ELSE PRINT@950y*‘ " ? 

6020 ' the next line sets the IP-225 printer to 16.5 cpi 
6030 LPRINT CHR$( 31 ) 


^‘540 ■' copy the screen Srephics to the printer 

6050 FOR Y=0 TO 471 FOR X=0 TO 123 


6060 IF POINT! X.Y) THEN LPRINT ELSE I PRINT “ “5 

6070 NEXT X: LPRINT " ": SET(O.Y): NEXT Yt RETURN 
10000 END 
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Character Graphics The second major graphical method is character graphics. This 

method is realized on the TRS-80 through the use of the PRINT @ 
instruction which can address any of the video screen’s 1024 
positions. The positions in the screen’s top row have addresses 0 to 
63, the second row 64 to 127, the third row 128 to 191, and so on 
until the last row, which has addresses 960 to 1023. 


PRINT @ 


The PRINT @ instruction uses the screen address to position the 
leftmost character to be printed. Caution: The @ symbol is 
represented differently in memory when the shift key is depressed, 
so be sure to use the unshifted @, otherwise a syntax error results 
when the program is executed. 


Instruction 


Output 


10 PRINT g OrX" 

20 PRINT g 95t''Z0T" 

30 PRINT g 5lO»"ZOTZOT" 
40 PRINT g 1023f"Z”; 


X 3t the top left of the screen 
ZOT centered on the second line 
ZOTZOT centered on the screen 
Z Bt the bottoBi risht of the screen 


If the PRINT® instruction ends with no punctuation, the cursor 
returns to the beginning of the next line, and this may produce 
undesirable results. If the address is between 960 and 1023, the 
string prints on the last line of the screen, then the screen scrolls one 
line. The effect of a PRINT @960 is the same as a PRINT @896, 
which of course is not what was intended. 

If the PRINT @ instruction ends with a semicolon (;) the result 
is predictable. We recommend that you always end all PRINT @ 
instructions with a semicolon. 


STRINGS 


A Level II BASIC function which is useful in graphing is the 
STRINGS function. This function has two arguments: The first is 
the number of characters desired, up to 255, and the second is the 
character itself. 
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Instruction 

10 PRINT STRING$( ) 

20 PRINT STRINGS5fCHR$( 65)) 
30 PRINT STRING$(8fCHR$( 13)) 


40 PRINT 8960f STRING$( 64s"Z" )? 

50 A=128; PRINT STRING$(AfB 


Output 


AAAAA 

Cursor moves down 8 lines? 
positions itself et left of 
line* CHR$(13) is e 
cerriesSe/cursor return 
which is the chsrscter 
produced by the ENTER 
Key (/EN/ ) * 

ZZZ...ZZZ (64 of them) on 
the bottom of the screen 
) Two rows of 9s 


Note: Since the computer builds the string in its memory first 
before displaying it, your program may require additional string 
space to be reserved for it. Use the CLEAR instruction to allow for 
more string space. 


The Character Set A look at Appendix B reveals that the TRS-80 has a total of 

256 possible characters, and the effect of each can be displayed by 
using the instruction PRINT CHR$(N) where N is a number from 0 
to 255. A few of these values of the TRS-80’s character code have 
no effect on the TRS-80, but most do, and they are certainly more 
numerous than would be necessary for just the alphabet, digits, and 
special characters that BASIC needs. The table below is a summary 
of the expanded table in Appendix B. 


Code 

Function 

0-7 

None 

8-31 

Carriage/Cursor Control 

32-47 

Special Characters 

48-57 

Digits 

58-64 

Special Characters 

65-90 

Alphabet (Upper Case) 

91-95 

Carriage/Cursor Control 

96 

Lower Case @ 

97-122 

Alphabet (Lower Case) 

123-127 

Lower Case of Codes 91-95 

128-191 

Graphics Characters 

192-255 

Tabs for 0 to 63 Spaces 
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Tabulation Codes 


The last two groups of codes represent half of the possible 
printable characters, and they deserve special mention. The last 64 
codes allow tabbing without the TAB function. 


Instruclion 


OulFui 


10 PRINT CHR$( 202 

20 A$=CHR$( 192+1): PRINT A$r'iic" 


^ in the loth Position 
t in the Ith position 


These codes make possible some very simple graphics programs, 
such as the one below. Note that this technique is restricted to 
screen graphics because printers don’t respond to the tabulation 
codes. 


10 'FILENAME! "CSP?" 

20 'FUNCTION! DRAU A VERY SIMPLE CHRISTMAS TREE 
30 ' AUTHOR ! JPG DATE! 6/79 

40 CLEAR 200 
50 M=32 

60 FOR 1=1 TO 12 

70 IF I>1 THEN M=H-RNrK3)! Rl=RND(5)-3! R2=RND( 5 )-3 
80 P$=CHR$(192+M-Rl ) 

90 L=65-M)t2+R2 

100 PRINT P$; STRING$(Lj"X" ) 

110 NEXT I 

120 PRINT TAB( 29)"MERRY" 

130 PRINT TAB(29)"XMAS!" 

140 GOlO 140 ' freeze the screen 

10000 END 
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Graphics Codes 


Graphic to Binary 
Conversion 


The codes from 128 to 191 are graphic characters that are made 
up of six small rectangles, or pixels, arranged in three rows and two 
columns for each character. Each character entirely fills one of the 
1024 print positions on the screen. Each pixel is either on (bright) 
or off (blank), depending on the code. For example, the graphic 
character 134 looks like this: 



where 


and 


is off, and 


□ ‘ 


IS on. 


The result of PRINT CHR$(134) would be the graphics 
character shown above. 


Each character code can be thought of as a visual representation 
of a six-bit binary number from 000000 to 111111, corresponding to 
all 64 possible combinations of bits. The character’s code value can 
be computed by translating each off pixel to a 0 and each on pixel to 
a 1. Then the positions of the Is can be masked into the six-bit 
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Uses for Graphics 
Characters 


binary number, 
codevalue. 


The value of that number plus 128Ts equal to the 


1£ 

48 

' 6^2 



i Is s 4* ( 


Thus the graphics character whose code is 134 is 





0 

2 


0 

0 

0 


o_^_L I o 


4-^-^ _ C. 


and so the statement PRINT CHR$(134) produces that graphic 
symbol. The graphic character whose code is 191 is the one in 
which all pixels are on, resulting in a large rectangle of light. This 
graphic symbol is one of the most useful, as shown in the following 
discussion. 


All pictorial printer graphic applications that have been 
mentioned so far in this chapter are fair game for these characters. 
For example, the histogram application (program C5P4) requires 
this line change and all LPRINTs to be changed to PRINTs to 
modify the output dramatically. 


190 PRINT" "?STRING$(R(I)!J:K?CHR$(191 ))} 
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80 


Program C5P4 will now produce output like: 



Other programs can be changed very simply, and their output reflect 

the use of graphics characters. 

Program C5P6 with the change 
50 PRIHT TAB(Ii(I?l))STRING$(D(l52)jCHF;f(191 )) 
yields output like: 
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Program C5P9 with the modification 

60 PRINT P$5: FOR J=:I TO L: PRINT CHR$( RND( 64 )il28)?: NEXT Jl PRINT 
now produces output like; 



Cartooning is possible with these graphic characters. This 
technique requires very fast display rates, so the POKE commands 
should be used to transfer the characters directly to the screen. 
POKE is about six times faster than PRINT, so it’s worth the effort. 

To give the semblance of motion, it is necessary to display a 
sequence of slightly altered pictures in rapid order. The time it takes 
to plan this sequence is truly imposing. 

The following program uses the character graphics, and its 
purpose is to draw a full screen of digits on the screen very quickly. 
The digits are made up of four screen positions each, so they appear 
larger than normally printed character digits. We show you this 
program and its output here to prompt you into thinking of uses for 
this “enhanced digits” display. 
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10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 


'FILENAME*. ”05810“ 

'FUNCTION: PRINTS DIGITS USING CHARACTER GRAPHli-o 
' AUTHOR : JDR MTEt 9/79 _ 

CLS: DEFINT A-Z: CLEAR 1001 DIM D$< 10)’ 

' coBiPose slrins to linefeed? then becKspsce twice 
E$=CHRi( 26 )-FCHR$( 8 l-fCHRfC 8) 

' this loop foPBis b 11 of the ten disits 

FOR 1=1 TO lO: A$="” 

FOR J=1 TO 4: READ Xl A$=A$iCHRI( 128+X) 

IF J=2 THEN A$=A$+Ef' edd LF & bBcKspece twice 

NEXT J 

d$(I)=a$: next I . ^ 

DATA 23?43? 13?i4?47?0?15?15?5i?59?13rl.:. 

DATA 51?53rl2?15?21?48?3?15?55?51?12?14 _ ^ 

DATA 53?48?13?14?3?27?10?0?55?59?13?14?55?59?0 ?1j 


' print the disits on the screen r-BnooBiiy 

FOR K=0 TO 62 STEP 3 

FOR Y=K TO 896TK STEP 128 
C=RND(10)-i: PRINTgY?D$< C+1 )? 


200 NEXT Y 
210 NEXT K 

220 GOTO 220' freeze the screen 
10000 END 
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The output of the following program should look familiar. 
Ihis program’s output is used as the chapter heads, or first page 
illustrations. 


10 

20 

30 

40 


60 

70 

80 

90 

100 


■ J. L. cr-tHi’! }::. f 


^'^■UMCTIGN^ 
•' AUTHOR 1 


5FT 


VM 


CHAPTER HEAD PROGRAH USING CHARACTER GRAPHIC 

miHliOM, iiEFINT A-Zl CLEAR 1001 DIM D$( 10)' iniiiaii-^e 
compose string to linefeed, then becKspece twice 
p=CHR$< 26 )+CHR$( 8 )+CHR$( 8 ) 

coRiFose string for sirfipie desisri 
B$=CHR$( 191 )+CHR$< 191 )-fE$-fCHR$( 143)+CHR$( 143) 

this loop forms ell of the ten digits 
FOR 1=1 TO 101 A$="" 


110 FOR J=1 TO 41 READ XI A$=A$-fCHR$< 128+X) 

THpT A$=A$-fE$' edd LF & beckspece 
i>i0 NEXT J1 D$< I )=A$ 

140 NEXT I 


twice 


150 

160 

170 

180 

190 

200 

iio 

220 

230 

240 

250 


oete for digits 0-9 

DATA 23,43? 13,14,47,0,15,15,51,59,13., 1*? 

DATp 51,53,12,15,21,48,3,15,55,51,12,14 

DATA 53,48,13,14,3,27,10,0,55,59,13,14,55,59,0,15 

FOR K=rT0^9rCLr chapters is below 

print heeding on left portion of screen 
PRINTei38,"CHAPTER",*: PRINT02O5,D$( K+1 )5 
loops to print designs on the screen 
FOR 1=1 TO 8: B=ABS(IPI-3 ): E=Ii9-INT( 1/8) 

FOR .J=B TO E 


^60 IF RND(3)=3 THEN PRINT01031-128)|ci43!kd,B$5 
270 NEXT J 

230 NEXT I 


290 ' loop to print digits on 
300 FOR J=1 TO 19: R=RND( 8) 

310 B=ABS( R-fR-3 ): E=RP9-INT( R/8 

320 PRINT81031-128*R-f3^S,D$( K+1 


the screen 

): S=B-1+RND(E~B+1) 
)? 


330 NEXT J 

340 ' hold the screen before getting ndxt chapter 
3 j0 FOR 1=1 TO 1000: NEXT I 


360 ' Set next chepter 
370 NEXT K 
10000 END 
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Pixel Graphics The third major technique for programming graphic displays is 

pixel graphics, so-called because the programmer controls the on-ott 
state of every single pixel. Whereas the screen contains 64 columns 
and 16 rows of characters, whether they are script or graphic, the 
same screen contains six times as many pixels. There are 128 
columns and 48 rows of pixels, and their screen addresses are 
radically different from the addresses of the graphic characters they 
generate. A programmer can address a single pixel with X and Y 
coordinates, using the column numbers 0 to 127 for X and the row 
numbers 0 to 47 for Y. 


The SET command turns on the pixel whose screen address is 
in X Y coordinate form in parentheses immediately following the 


word SET. 


Inslruciion 


10 SET(0»0) 

20 SET(2»4) 

30 SET( 127»47) 

40 SET(0j47) 

50 SET(127»0) 

60 POKE 15360» 128421 
70 SET(0?0): SET(0»1); SET(0j2) 


Output 


Upper left pixel is turned on 

Second pixel on fourth row 

Lest pixel on 47th row 

Bottom left pixel 

Top riaht pixel 

See text below 

See text below 
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RESET 


The last two statements above have the same effect, except 
that the POKE is much faster. Both light up the top left pixels like 
this: 



The RESET command turns off the pixel whose screen address 
is in X,Y coordinate form. 


10 PRINT CHR$(191) 
20 RESET!IjO) 


10 'FILENAHEl "C5P11" 

20 'FUNCTION! SHOOT A DIAGONAL LINE ACROSS THE SCREEN 
30 ' AUTHOR t JPG DATE! 6/79 

40 CLS 

50 FOR 1=0 TO 119! X=I! y=I*,4! J=I-10! K=.Jf»4 
60 SET(XfY) 

70 IF I>9 THEN RESET! J,K) 

30 NEXT I 
10000 END 



The program above “shoots” a line from the top left to the 
bottom right of the screen. Try it. 
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POINT 


The POINT function returns a zero (false) if the pixel at the X,Y 
coodinates that make up its argument is off, and a -1 (true) if that 
pixel is on. Thus it is useful when testing if a particular spot is on or 

off. 


10 IF POINT(OjO ) then RESET!Oi-0) 

20 IF POINT! X?Y) THEN SET! X-fl ?Yil )t RESET! XiY) 

Pixel graphics give the programmer a true graphing capability on 
the screen with 128-column, 48-row resolution. This may not be the 
finest resolution you can find on the graphic terminals and 
computers, but the latter generally cost about five times as much as a 
TRS-80. With pixel graphics you can draw horizontal, vertical, and 
angled lines, and even graph geometric shapes. 

10 'FILENAHEl "C5P12" 

20 'FUNCTION; DRAW A HORIZONTAL. OR VERTICAL LINE 
30 ' AUTHOR ; JPG DATE; 6/79 

40 CLS 

50 INPUT "HORIZONTAL ! 1) OR OERTICAL !2)'f A 
60 INPUT "STARTING COORDINATE"? B 
70 CLS; ON A GOTO 80 j90; GOTO 50 
80 FOR X=0 TO 127; SET!XjB); NEXT X; GOTO 50 
90 FOR Y=0 TO 471 SET!BfY); NEXT Yl GOTO 50 

10000 END 




10 'FILENAME; "CSPIS" 

20 'FUNCTION; DRAW AN ANGLEIf 
30 ' AUTHOR ; JPG 
40 CLS 



50 INPUT "X AND Y OF ORIGIN"? X?Y 
60 INPUT "ANGLE IN DEGREES"jTH; A=TH/57«3; 
70 INPUT "LENGTH";R 
80 CLS 



90 ' drew the line 

100 FOR N=1 TO R 

no SET(XfN*C»47-( Y+N!!cS)) 

120 NEXT N 

130 GOTO 130 ' freeze Ihe screen 
10000 END 


C=COS(A 



Chapter 5 Graphics 


87 








LINE BY CARTESIAN METHOD 


DATEt 




79 


'FILENAMES "COPH" 

'FUNCTIONS DRAW AS'iY 
' AUTHOR S SPG 
CLS5 INPUT " POINT OF ORIGIN ( Xi-Y )” 5X1 jYI 
INPUT ” POINT OF TERMINATION (X»Y)"5X2»Y2 

CLS 

' switch vBriebies if needed to reverse oirection 
IF ?2<n THEN X3=X2! X2=Xi: X1=X3: Y3=Y2t Y2=Y1! Y1=Y3 
' checKs for s verticel sndle sno sets sccoroinssls 
IF X10X2 THEN 180 


10 
20 
30 
40 
50 
60 
70 
80 
90 

110 IF Yi<Y2”THEN ST=1 ELSE ST=-r set step size 


120 ' loop to drew verticsi line 
130 FOR Y=Yi TO Y2 STEP ST 
140 SET (XIjY) 


150 NEXT Y 
160 GOTO 260 

170 ' tsKes csre of sll other sndles 

180 M=( Y2-Y1)/( X2-X1)' cslculste slope of sndle 

190 ' set step size 

200 IF M<-1 OR M>1 THEN BT=l/M-l/( M^c90 ) ELSE ST=SGN(M) 

210 IF ST=0 THEN ST=1' set step size if M=0 

220 ' drew line between points 

230 FOR X=0 TO X2-X1 STEP ST 

240 SET (X+X1jM#.XPY1 ) 

250 NEXT X 

260 GOTO 260' freeze screen 
10000 END 





10 'FILENAHE: "C5P15" 

20 'FUNCTION: DRAW A CIRCLE USING SINE AND COSINE FUNCTIONS 
oO ' AUTHOR : JPG date: 10/79 

40 CLS 

50 INPUT "RADIUS"IR: INPUT "CENTER COORDINATES"rXl?Y1 
60 CLS 

70 FOR TH=0 TO 6.3 STEP 1/R 

80 X=R)KCOS( TH)fXi: Y=.5$:RS:SIN( TH )-fYl: SETCXjY) 

90 NEXT TH 

100 GOTO 100' freeze screen 
10000 END 
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Bouncing Dots 


In many games, as well as in serious graphing applications, you 
will want to have a dot move in a straight direction until it meets an 
obstacle and keep moving in a new direction. Consider the possible 
bounces: 

Vertical Wall Collision 




Each moving dot changes its X direction by an amount DX, 
and its Y direction by an amount DY. In all the conditions above, 
the Y direction increment DY never changes sign. In conditions 1 
and 2, DX starts as positive, but changes sign to negative on the 
bounce. 

If you investigate the four possible bounces from a horizontal 
wall, you will find that, as expected, the only change is the reversal 
of the sign of DY. 

This understanding is all that is necessary to graph a moving and 
bouncing dot. The dot is a pixel drawn with a SET command. The 
coordinates of the SET are X and Y. The movement is provided with 
a SET at a new position X+DX, Y+DY followed with a RESET of the 
old dot at X,Y. 


100 

SET(>:?Y) 

110 

X-XfDXl Y=YiDY 

120 

SET( XsY) 

130 

REBEKX-DXjY-DY) 

140 

GOTO 110 
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To bounce the dot off the wall, you must “feel” ahead to see if 
any part of the surrounding territory is occupied. It is not enough 
to just sense the status of the next point. For example, suppose the 
dot is moving up and to the right, and it encounters a horizontal wall 


Next place to be set 
is already occupied 



If the “next place” is the only point that is considered on a 
bounce, the computer couldn’t tell if the wall were horizontal or 
vertical. 


. Next place to be set 
is already occupied 



The only way to judge which direction increment, the DX or the 
DY, needs to change sign is to sense in all four directions. 


Examples: 



There is something above 
the dot, so reverse the sign 


ofDY 
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There is something to the right of 
the dot, so reverse the sign of DX 



This program bounces a dot off any wall set up in either a 
horizontal or vertical position. It allows DX and DY to be defined 
for any value between 1 and 2, and builds its walls on the four sides 
of the screen. 


10 'FILEHAHEt "CSPU" 

?0 'FUNCTION! BOUNCING DOT FROGRAH 

30 ' AUTHOR ! JPG DATE! 2/80 

40 INPUT "DX» BY BETWEEN 1 AND 2 INCLUSIVE”fDX»DY 

50 INPUT "STARTING COORDINATES"JXiY! CLS 

60 FOR 1=0 TO 127 ' this loop drsw& horizoniei boundaries 

70 SET(IjO)! SET(I?1)! SET(I»46)! SET<l!-47) 

80 NEXT I . . 

90 FOR 1=0 TO 47 ' draw vertical boundaries 

100 SET(0,I)! SET<1»I)1 SET( 126,1)! SET<127,I) 

no NEXT I 

120 SET(XjY) ' put a point at location X,Y 
130 ' change direction of dot if necessary 
140 IF POINTa+DX»Y ) OR P0INT( X-DX, Y ) DX=-DX 
150 IF POINTSXjYFDY) OR POINT! X,Y-DY) DY=-DY 
160 X=X-fDX! Y=Y+DY! GOTO 120 
10000 END 
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A very nice program that actually served as an inspiration for 
the discussion above is the one that Steve Grillo wrote as an exercise 
in visual graphics. He calls it “The Happy Hopi” for obvious reasons. 


r r' T 1 r” XI A i II f- r.' p 1 *7 

r iLui’lHi-iC i- i/wM .i. / 


•'FUNCTIONt CREATING COMPUTER ART 
' AUTHOR I SPG 2/79 

^ next line inilielises veriebiesj deers screen 
RANDOM! CLEAR 1000! DEFSTR A! DEFINT B-Z! E=l! P=-l. ULS 

CLOSE! PRINT " PRESS!" 

PRINT " L- TO LOOK AT OLD PICTURES" 

PRINT “ M- TO CREATE NEW PICTURES" 

A=INKEY$! IF A="" THEN 90 
0 IF A="L" THEN 790 

5 •' user wents to creete new art 

0 CL3 . .u - -. 

0 ^ neKi loop drays 6 randorii lines on Ine screen 

() ' (3 verticel? 3 horizonlel) 

0 FOR T=1 TO 3 

0 ' set UP rencioHi veriebles 

0 B0=RND(25)!l:2F4! Bl=BTRNEi( 50-,5fB )!f£2! B2=RND( 211*2+4 

10 C=RND( ll)*2+4! C1=C+RNIK 23-*5fC )*2! C2=RNri( 60 )*2+4 
'0 ' drew the lines usins the veriebles 

:0 FOR N=B0 TO Bl! SET(N»B2)! NEXT 
.0 FOR N=C TO Cl! SET<C2?N)! NEXT 

K) ' the neKi two lines inilielize the direciiun uf thtf 
iO S=INT( RNDdOO )/50 )! IF S=0 THEN S=--l 

iO T=INT(RND( 100 )/50 )! IF T=0 THEN T---1 

bO ' the next two lines drew e boundery eround the screen 
FOR N=i TO 125! SET(N?3)! SET(N»47)! NEXT 
30 FOR N=4 TO 46! SET(1»N)! SETIHSirN)! NEXT N 
?0 ' next line sives the point e stertins spou & 

OO ■' nieKes sure it isn't occupied 

10 X=RND( 61 )*2+2! Y=RND( 20 )*2+5! IF POINTSXjY) THEN 310 
20 ' print the coniBiend steteHient on tiie ^screen 

30 PRINT® 10?"COMMANIK P?S? fRfE)! "» 


re&i i^ i-P'® mein portion of the proSreisi 
370 ' next 4 lines chende the direction if necessery 
380 IF POINT! X+1?Y) THEN S=~l 
390 IF POINT!X-1»Y) THEN S=1 
400 IF POINT! X?Y+1) THEN T=“l 
410 IF POINT! XfY-1) THEN T=1 
420 ' previous point is blenKed if F-1 
430 IF P=1 THEN RESET!X»Y) 
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440 

450 

460 

470 

430 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

310 

820 

830 


Wi 


dot where to move 


while end E=1 


next 4 lines eclueily tell 
11- 8=1 THEN X=XT1 
IF S=~l THEN X=X~1 
IF T=1 THEN y=Ytl 
T=-l THEN Y=Y-1 
next line er-eses point if it 
IF P0INT<XfY) AND E=1 THEN RESET(XjY) ELSE SET(X>Y) 

' the next line checks to see if e Key was eressed- 

^ F-rogrem 

A=INKEl$: IF A="" THEN 380 

Print the letter that was pressed in the corner 
PF;INT@ 30fAs 

execute the coirmiend 
reverse the dot? 

IF A="R” THEN T=-TJ S=-SI GOTO 330 
' erase the dots trail? 

1¥ A="P" THEN P=-p; GOTO 330 

erase the dot when it runs over another'? 

IF A="E" THEN E=-E; GOTO 330 

stop the motion of the dot'? 

IF AO” " THEN 670 
A=INKEY$t IF A=”” THEN 650 ELSE 330 
store the Picture on disk'? 

IF A<>"S" THEN 330 

store the file usind randoBi access 
pN ”R”,1,"SCRNGRPH/DAT- open the file for access 
FIELD If 255 AS H=L0F( 1 1=15359' initialize 

A=""' nullify A$ 

the next 5 lines copy the screen to 
1=1 + 1 

IF LEN(A)<255 THEN 770 
H=H+1S LSET B$=A: PUT 1,M 
IF M/4=INT(M/4) THEN 60 ELSE 710 
A=A+CHR$(PEEK(I)): POKE I,461 GOTO 730 
' this portion copies the art on disk to the screen 
OPEN "R"flf"SCRNGRPH/DAT"1 FIELD 1? 255 AS B$ 


disk 


IF L0F(1 )<>0 GOTO 
PRINT ”SORRYr BUT 
A=INKEY$1 IF A="” 
CLS 


830 

THERE IS 
THEN 820 


NO ART ON 
ELSE 60 


FILE,.* «CR»"; 


840 FOR C=1 TO L0F( 1 ) STEP 4 

850 FOR D=0 TO 31 GET 1,C+D: PRINT B$: NEXT D 
860 PRINT @970, ” «CR»” 5 

870 A=INKEY$: IF A="" THEN 870 ELSE PRINT 
880 NEXT C 
10000 END 
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The last program produces graphic designs that are familiar to 
all mathematicians: These are variously called roses, limacons, 
lemniscates, or Lissajous figures, and they are not difficult to 
produce. The following program allows the user to select a pattern, 
choose its density, then produce the output on either the screen or 
both the screen and the line printer. We have included a number of 
examples to show you its flexibility. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 


■'FILENAHE: "C5P18" 

' FUNCTION! PRODUCE INTERESTING PATIERNB 
' AUTHOR : SPG 
DEFINT XiYjZjQs-K 


DEFINT KfOfXfYsZ! P2=6»283t Z--231 K~- 
INPUT “FIRST MARIABLE (0<X<10)"?A 

"SECOND MARIABLE (GREATER THAN 
"OUTPUT TO PRINTER (1=YES)"1P 
TY (l^^SUPER DENSE. BUT 

COBiFUCb &i6P SI2:6 


T==3 


INPUT 

INPUT 

INPUT 

ST=S‘ 

CIS 


"DENSI 
/lOOO' 


THE FIRST VARIABLE)" IB 
SLOW 5 200=SCATTERED)"1ST 


FOR 


creele 
TH~0 TO 


the 

P2 


F-iciure 
<?TEP ST 


R=ZtSIN( THrf >: X=K«R*.COS( Af.TH )iCt Y=RiitSIN( BfTH )li 


SETIXsY) 


160 NEXT TH . 

170 IF POl THEN 300' did the user wsni it copreor 
180 ' print values for two nisirt vsriBhles 
190 LPRINT CHR$( 29 )' nor-Biel printer density (10 cpi) 
200 LPRINT TAB( 12)"First VsriBble==" sAJ 
210 LPRINT TAB( 44)''Second VBriBbie=" jB 


220 

230 

240 

250 

260 

270 

280 


LPRINT , ^ ■ 

LPRINT CHR$(31)’ set printer density to 164 a cpi 
' copy the screen to the printer 
FOR Y=0 TO 47 

FOR X-0 TO 123 , „ 

IF POINT(XjY) THEN LPRINT ELSE LPRINT 

NEXT X; LPRINT " "t SET(0»Y) 


290 NEXT Y 

300 GOTO 300' freeze the screen 
10000 END 
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Graphing techniques are supremely rewarding to both the 
programmer who masters them and the program user who delights 
in their visual effects. They often transform a dull program into an 
exciting one, and provide the user with pictures, generally known to 
be worth a thousand words each. Sometimes, though, words are the 
stock in trade for the computer, as in the many word processing 
applications indicate. When this is the case, BASIC’s ability to handle 
strings is of paramount importance, and this capability makes it a 
language chosen by many. String handling will be discussed in the 
next chapter. 
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I/O, Strings, and As good as Level II BASIC is with its graphics and enhanced 

Disk BASIC string handling capabilities, the TRS-80 Disk Operating System or 

TRSDOS, includes some embellishments that further increase the 
power of the language. These additions to the language are 
supplemental to the 12K ROM (Read Only Memory) BASIC, and 
occupy RAM (Random Access Memory). You may refer to the 
memory map in Appendix C for a visual explanation of the way 
these enhancements use the RAM. 

This chapter discusses the Disk BASIC features that don’t deal 
with tape or disk I/O, since chapters 7 and 8 cover those topics 
thoroughly. 


DEFUSR and USRn These two language features are very closely related. The 

DEFUSR corresponds to a DEE FN, except that it refers to a 
user-defined machine language function, and the USR corresponds 
to the invocation of that function. 

The DEFUSR defines the entry point to a machine language 
routine as an address, and it also associates that routine with a 
number from 0 to 9, which allows up to 10 machine language 
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routines to be called within a program. 

10 DEFUSR0=32000 ' Each of the four orgumenis is in 
20 DEFUSR1=32100 ' deciiftB.!. (by default)* 

30 DEFUSR2=32200 
40 DEFUSR3=32300 

The four lines above could just as well have defined the machine 
language subroutine entry points in hexadecimal. 

10 IiEFUSR0=&H7Ii00 ' 7D00 HEX- 32000 DECIMAL 

20 riEFUSRl=&H7D64 ' 7D64 HEX= 32100 DECIMAL 

30 DEFUSR2=&H7DC8 ' 7DC8 HEX= 32200 DECIMAL 

40 DEFUSR3=&H7.E2C ' 7E2C HEX== 32300 DECIMAL 

You may wish to define a machine language subroutine’s entry point 
in hex depending on which way it is convenient for you to think of 
addresses in the computer’s memory. In this example we have 
assumed that the four programs have been loaded into the appropriate 
places, and that each one is less than 100 bytes long. Note that when 
BASIC is loaded and asks the question “MEMORY SIZE?” you 
should respond 31999 (or less) to prevent your BASIC program from 
using the area above 32000, which is the portion of memory in which 
the machine language subroutines were loaded. 

The USR instruction is really a function, and in TRSDOS 
BASIC it must have a suffix digit of 0 to 9 corresponding to the 
DEFUSR statement that specifies the entry point. There is but a 
single argument to the function, and as with all functions it returns 
only one value. Both the argument and the returned value are 
integers. 

Examples; 

500 X=USR3 (m ) 

600 Y=USR7(RND(99)) 

700 Z=LiSR6(-5) 

If you are interested in writing an assembly language routine 
that can be placed in memory for use with USR and DEFUSR, we 
refer you to your local Radio Shack store, on whose shelves you will 
find several books dealing with this subject. Below are some 
examples of functions that could be written in assembly language 
(for speed), and are therefore suited to the DEFUSR—USR approach. 

(1) The argument is the screen address (0 to 1023) for the 
cursor. The value returned is the length of the nonblank string of 
characters to the right (or left) of the cursor. 

(2) The argument is a distribution specifier for a randorn 
variable. The value returned is a random variate of the specified 
distribution (Poisson, normal, or other). 

(3) The argument is a coded musical note. Ten thousands = 
port number (1,2, or 3). Thousands = A to G (A = 1000, B — 2000, 
etc.) Hundreds = Octave (100 = lowest, 800 = highest). Tens = time 
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(1 = 32nd note, 2 = 16th, 3 = 8th, 4 = 4th,. . . ). Ones = sharp (1), 
natural (2), or flat (3). The value returned is the specified note for 
the specified time on the specified port. 


POS, INSTR, 
and MID$ 


Although the POS function can be used with Level II BASIC 
without having to use TRSDOS BASIC, it is closely related to the 
other topics of this chapter. It is a function that returns the position 
of the cursor on the line, a value from 0 to 63. The argument of the 
POS function is a dummy. It must be there, and can be any numeric 
expression. 

Examples; 

10 PRINT "A" TAEh P0S( 0 )-fl0 )"B" TAB< P0S( 0 )-f 10 

There will be 10 spaces between the A and the B, and 10 spaces 
between the B and the C. 

10 FOR 1=1 TO 1001 INPUT Xf 
20 IF POS(0)-!-LEN(X$)>=63 THEN PRINT 

30 PRINT YM" ‘S 

40 NEXT I 

This loop reads text one word at a time and prints the words 
side by side, separated by blanks. A word will not be divided 
between two lines. 


The INSTR function searches one string to see if it contains 
another. Like the MID$ function, it can have either two or three 
arguments. The function is written 

INSTR(p,stringl $,string2$) 

where the optional variable p indicates the byte position at which 
the search is to begin; string 1 $ is the string expression being searched; 
and string2$ is the string expression being sought. 

The value returned is the starting position of the substring that 
was found in the target string, or zero if it wasn’t found. If the 
optional starting position for the search is not specified, the search 
begins at byte 1. 

Instruction OuIfuI 


10 A$="NQT WITH A BANG» BUT A WHIMPER" 
20 PRINT INSTR! Af»" ") 

30 PRINT INSTR! 5rA$»" ") 

40 PRINT INSTR! Aff"A" ) 

50 PRINT INSTR! A$f"J" ) 

60 PRINT INSTR!4fA$j"T " ) 

70 PRINT INSTR! A$C'WITH" ) 

80 PRINT INSTR! 25A$C' A " ) 


4 

9 

10 
0 

20 

5 
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The INSTR function can simplify the neat printing of inputted 
text, as in the example for the POS function. 


10 "FILENAME: "C6Pr' 

20 "FUNCTION: DEMONSTRATION OF STRING FUNCTIONS 
30 " AUTHOR : JPG CATE: 6/79 

40 CLEAR 3000: DIM Bf<50): 1=1 ' iniiislize verisbles 
50 INPUT "TYPE TEXT (NO COMMAS)"? Ml LPRINT A$ 

60 IF A$="«$ENri" THEN 160 ' check for end of dels entries 
70 Bf( I )=B$( I)+" "-fAI" concBlenele old end new strings 

80 IF LEN(B$(I))<60 THEN 50 ' bBcK if string short enough 
90 ' loop to find first (rightmost) spbcb < 60 chsrBcters 
100 FOR J=60 TO 1 STEP -i: X=INSTR(J?B$( I )?" ") 

110 IF X=0 THEN NEXT J ' Keep checKing for b spBce 

120 "found one. BdJust strings Bccordingly? then so bBcK 
130 B$( ITl )=MID$( B$( I )?X ): B$( I )=LEFT$( B$( I )?X ) 

140 1=1+1: GOTO 50 

150 ' print the finel cops 

160 FOR J=1 TO i: LPRINT B$(J): NEXT J 
10000 END 

The progrBRi which is responsible 
for si 1 ow 1 n s iho u sor to 

fiiudify s rocoro’ s contorii-r;* ^ • 

should be fBirls simple set reouires greet cere in its design. 
Consider the fields of the 
record end the effect tnet 
B chenge would have 
on eBch of them. 

$$ENri 

The program which is responsible for Bllowing the user to mouifs 
3 record's contents should be feirls simple set reeuires greet 
Core in its design. Consider the fields of the record snd the 
effect thBt B chenge would hsve on eech of them. 

In the example above, notice how in line 130 the two-argument 

MID$ function acts like a RIGHTS function, but instead of the 
numeric argument being a length, it is a starting position. The 
INSTR can take advantage of this feature of the MID$ in a name 
reversal subroutine, such as the one below. Compare the following 
program to program C2P5 in chapter 2. This example is typical of 
many applications, such as mailing lists or accounting, in which the 
name on a record is its key and it is arranged last name, then first 
but it is used in the order first, then last name. For example, a stored 
record might contain: 

MINDERBINDER MILO 
and the output should be: 

MILO MINDERBINDER 
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INKEY$ 


10 'FILENAME^ ■■C6P2" 

20 'FUNCTIONt REVERSAL OF NAHES 
30 ' AUTHOR J JPG DATE! 7/79 

40 ' the next lines use the subroutine 
50 INPUT H%t LPRINT N$ 

60 IF N$=“$$END" THEN STOP 
70 GOSUB 80: LPRINT N$: GOTO 50 

80 ' the next line does the reversal 
90 X=INSTR<N$»" “): N$=MID$(N$»X+1)+" "iLEFT$( N$?X-1) 
100 RETURN 
10000 END 


Bleaux Jo 
Jo Bleaux 

Farnsworth Ferdinand 
Ferdinand Farnsworth 
Badinage Billybob 
Biiiybob Badinage 
$$END 


A one-line user-defined function could do all that this 
subroutine does, but it leaves much to be desired in clarity. 

5 DEF FNR$(N$)=HIDf(NffINSTR(N$j’' " )+l) 

V "+LEFT$(N$?INSTR(Nff" ”)-l) 


The INKEY$ string function is a very powerful part of LEVEL II 
BASIC. It does not have an argument. You can think of it as a 
single-character input function that doesn’t need an enter keystroke. 
When the INKEYS function is executed, it “strobes”, or scans, the 
keyboard checking fora depressed key. If no key is depressed, the 
string returned is a null string, If a key is depressed, the string 
returned is that keystroke, even if it iS'a control key such as the 
backspace or the ENTER key. Because the keyboard scan occurs so 
fast, when INKEY $ is executed it must be given multiple 
opportunities to execute in order to find^a key that is depressed. For 
this reason the INKEY $ is always placed inside a loop. 

Example; 

100 X$=INKEY$; IF X$="'' THEN 100 
110 PRINT @ 960»X$J 
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This program segment strobes the keyboard repeatedly. When a 
key is depressed, the keystroke isn’t null, X$ isn’t so line 110 is 
executed and prints that character at the bottom of the screen. Note 
the punctuation at the end of the PRINT @. Remember that it 
keeps the carriage/cursor from returning so that what was printed on 
the bottom line stays on the bottom line without the standard 
single-line scrolling of the screen. 

100 X$=INKEYi; IF X$="" THEN 100 
no PRINT § 0» ASC(X$)!X$n GOTO 100 

When a key is depressed the ASCII code value for the depressed 
character is printed at the upper left, immediately followed by the 
character itself. 


100 PRINT "TYPE JUST DIGITS" 
no Xf=INKEY$t IF X$="" THEN 110 

120 IF X$<"0" OR X$>"9" THEN PRINT "ERROR"! GOTO 100 
130 PRINT @ 0fX$n GOTO 110 


The two following subroutines might seed a fertile mind with 
ideas for other uses of their capabilities. 


10 ''FILENAME! "C6F3" 

20 'FUNCTION! USING INKEYf FOR NUMERIC VARIABLES 
30 ' AUTHOR ! JPG DATE! 7/79 

40 ' routine to test the input eubroutine 
50 CLS! PRINT "TYPE AN INTEGER VALUE (0=STOP)" 

60 GOSUB 1000! PRINT! PRINT A 
70 IF A=0 THEN lOOOO 
80 GOTO 80 

1000 •' subroutine to piece en eil-disit positive value 
1010 ' into a string (A$) 

1020 A$="" ' null the string 

1030 X$=INKEY$! IF X$="" THEN 1030 ' wait for pressed Key 
1040 IF X$=CHR$(13) THEN A=VAL(A$)! RETURN ' /EN/ KEY? 
1050 'meKe sure Key is a digit? then add strings S. go bacK 
1060 IF X$>="0" AND X$<="9" THEN 

A$=A$+Xf! PRINT g 512 jA$?! GOTO 1030 
1070 ' print error niessege (A$ not legel Key) and go becK 
1080 PRINT e 576?")r.«ERR0Rm. — SO FAR YOU HAVE -";A$f 
1090 GOTO 1030 
10000 END 
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LINE INPUT 


10 'FILENAHEI "C6P4'' 

20 'FUNCTION: FLASH A PROMPT WHILE KEYING IN A STRING 
30 ■' AUTHOR ; SPG DATE: 1/80 

40 ' lest the subroutine 

50 P$=”NAME: " ' ibis will be flsshed on the screen 

60 GosuB 1000: print: print: print m 
70 STOP 

80 ' subroutine to flesh e proBiPt for strind input 
90 ' Note: 

100 ' I is B duBiroy timind verisble which is 

110 ' chended ss necessBry to keep the proBiPt 

120 ' fieshind Bt b feirly constent rete while the 

130 ' strind is beind typed in^ 

1000 CLS: 1=30 ' ffiBke sure proBipt dets printed soon 

1010 Xf=INKEY$: IF X$="" THEN 1050 'weit for pressed Key 

1020 IF ASC(X$)=13 RETURN ' lesve routine if done enterind 

1030 ' Bdd strinds end print the strind on the screen 

1040 N$=N$-{-X$: PRINT § 135»N$?: 1=143 

1050 1=141 ' increfiient the tiBiind verisble 

1060 ' put proBiPt on screen K reset tiBier if necesssry 

1070 IF I>=20 THEN 1=0: PRINT !? 128fP$? 

1080 ' blank out the pronipt if it is tiBie to do so* 

1090 IF I>7 AND I<13 PRINT i 12Bf STRINGf< LEN< P$)?" "')» 
1100 GOTO 1010 
10000 END 


The commonly used INPUT command is quite flexible, but it 
has its limitations. You can’t input commas or quotes, and if you 
try to input a string with leading blanks, BASIC does you the 
questionable favor of eliminating them to shorten the string. Also, 
a question mark is printed on the screen every time the INPUT is 
executed, sometimes leading to awkward-looking displays. 

The LINE INPUT command overcomes all of these difficulties 
at the minor expense of being able to input only one variable at a 
time, which must be a string. Probably the most useful feature of 
the LINE INPUT results from the fact that if you input a null string 
(hit the ENTER key) it is inputted, whereas this action is ignored 
during the usual INPUT operation. 

The following examples should serve to show the power of this 
very useful command. 

Assume this statement is executed: 

10 LINE INPUT "TYPE A LINE! "»X$: PRINT X$: GOTO 10 

Study this dialog to see how the LINE INPUT works. 

(The /EN/ signifies the ENTER stroke). 
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TYPE A line; 79»282.44/EN/ 

79i282.44 

TYPE A line: he SAIDy "HI!"/EN/ 

HE SAID? "HI!" 

TYPE A line; centered TITLE/EN/ 

CENTERED TITLE 


The next program segment illustrates a useful feature of LINE 
INPUT: it accepts a new value as input, even if a null string is 
entered. Note that the INPUT statement cannot accept a null string. 
If a null string is INPUT, the previous INPUTted value is used. 

10 INPUT A$; IF A$="" PRINT "NULL A" ' type ABC <no output) 

20 INPUT B$; IF E$="" PRINT "NULL B" ' type DEF (no output) 

30 INPUT Ml IF A$=''" PRINT "NULL A AGAIN" 

ELSE PRINT LEN(A$)JA$ ' type output is 3 ABC 
40 LINE INPUT X$; IF X$='‘" PRINT "NULL X" ' type XY2 (no output) 

50 LINE INPUT Y$; IF Y$="" PRINT "NULL Y" ' type R3T (no output) 

60 LINE INPUT X$; IF X$='’" PRINT "NULL X AGAIN" 

ELSE PRINT LEN(X$)5X$ ' type ""» output is NULL X AGAIN 


This feature of the LINE INPUT is quite useful in file editing. 

In the example below, the array X$ contains the names, street 
addresses, city, state, zip code, and phone numbers of some data that 
is on file, and this subroutine allows the user to update the data. 


10 'FILENAHE; "C6P5" 

20 'FUNCTION; HORE EXAHPLES OF USING LINE INPUT 

30 ' AUTHOR ; JPG DATE; 9/79 

40 CLEAR lOOO; DIM X$( 20 j 6 )'ii. 3 Ke lots of rooBi for strings 

50 ' X$( I»1) is nenie X$(If2) is street X$(I»3) is city 

60 ' X$(If4) is zip X$(Ij 5) is stete X$(I»6) is Phone 

70 ' BiBin ppoSrsBi begins here 

80 N=3; GOSUB lOO; GOSUB 1001 GOSUB 100 

90 STOP 

100 ' subroutine for update of records 
no FOR J=1 TO 6 ; READ P$( J); NEXT J; RESTORE 
120 FOR 1=1 TO N;CLS; FOR J=1 TO 6 
130 PRINT e64il:J,P$( J)j XI(I»J)» 

140 LINE INPUT Ml IF A$<>"" THEN X$(I»J)=Af 
150 NEXT J»i: RETURN 

160 DATA NAMEfSTREET»CITY»STATEtZIP»PHONE 
10000 END 


no 
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MID$ for 
Replacement 


The LINE INPUT in the subroutine uses an ENTER stroke on 
the keyboard as an indication that there is no change in the filed 
data. Otherwise, the user types in the new information and it 
replaces the old information in the array. 


Our previous encounter with MID$ showed it to be a powerful 
function that would extract one string from another. 

For example, if A$ = “ABCDEFG” the statement: 

X$=MID$( Af»4,2) 

copies the two characters of A$, starting at the fourth, into X$. 

With Disk BASIC, the MID$ function can disobey the usual rule 
that functions must appear to the right of the equal sign. If MID$ 
appears to the left of the equal sign, it is a replacement function 
instead of an extraction function. It copies any portion of the string 
to the right of the equal sign into the string argument of MID$ 
beginning at the position specified by the middle argument for the 
length specified by the third argument. 

Suppose X$="ABCDEFGH" 


InstrucTion Output 


10 HID$(X$»4»2)=*'XY”: LPRINT X$ ABCXYFGH 

20 HIIif(X$»l!5)=" 12345" 1 LPRINT X$ 12345FGH 
30 Hiri$(X$f6jl)="XYZ": LPRINT X$ ABCDEXGH 

This function is powerful in text editing programs. The example 
below searches the 64-character string X$ for the specified target 
string T$. If T$ is found in X$, it is changed to the new version N$. 
For example, the string might contain a line of text and the user 
could change an occurrence of the misspelled word “COERTION” 
to the proper spelling “COERCION”. 

10 •' FILENAHEl "C6P6" 

20 'function: to substitute within a STRING 
30 ' AUTHOR : JPG DATE: 8/80 

40 ' 

50 CLEAR 200: CLS 
60 DIM X$(20) 

70 DATA "snteiope elund diKdiK impele dezelle derenuK" 
80 DATA "couSer tiger lion ieoperd Jeguer lynx” 

90 FOR 1=1 TO 2 

95 READ Xfil): PRINT X$(I ): GOSUB 1000 
100 NEXT i: GOTO 10000 
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TIMES 


1000 'ttttt 
1010 LINE INPUT 
1020 LINE INPUT 
1030 IF LEN(N$) 
1050 FOR J=1 
1060 IF P<> 


subroutine to suhsiiluie 
"type ierael strinbt ”jT$ 


y y 0 n 0y k i * 0 f x oC 0 ut© r % i* b' c- r 111 is * 


■■fN$ 


>LEN<T$) THEN PRINT "loo lonb"? GOTO 1020 
TO LEN( X$( I ) >: P=INSTR< Jf X$( I )TT$ ) 

0 THEN Hiri$(X$(I )fP)=N$ 


1070 NEXT j; PRINT X$<I ) 
1080 RETURN 
10000 END 


snteloF© elund dikdik ibipsIb sszelle serenuK 

type iBr-del sirinfiS elund 

type new ( replsceriient) strinsi elsno 

Bntelope eiend diKdiK iniPBlB dBzelle derenuK 

couder tider lion leoPBrd JBdusr lynx 

type iBrdet strindl couder 

type new ( replscenient) strindt coudBr 

coudBr iider lion leopsrd JsdUBr lynx 

READY 

>e 

TIMES is a variable that is defined by the computer when it is 
turned on and Disk BASIC is loaded. If this statement is executed: 

500 PRINT TIME? 

the output is the system date and time. That is, whatever date and 
time was typed in when TRSDOS was initiated is displayed as 

MM/DD/YY HH:MM:SS 

This 17-character string is initialized automatically to 

00/00/00 00:00:00 

if the TIME and DATE DOS commands were not used to accurately 
set the internal clock and calendar. 

The TIMES string is useful in two very important application 
areas. First, the date portion can be used in programs for account 
ageing, proper billing, inventory reorder, and all the other business 
applications that require action on particular dates. Second, the time 
portion can be used by a. programmer for timing program loops and 
user responses. The two programs below illustrate this use. 
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10 'FILENAMEI "C6P7" 

20 'function: tihing of arithmetic operations 

30 'AUTHOR : JPG DATFJ 12/79 

40 ' 

50 DEFSNG A-Z 

60 'edci=lf sub==2j div=4 

70 CLS: F$="Z % 7. % % % % % % 

80 G$='‘l#44##t #*# tU *##" 

90 LPRINT USING FI? "NO* OPS"?”ADD"?"SUB"?"MUL"?"DIU" 
100 'iler-Blions er-e 100 to 1000 in steps of 100. 

110 'note thet esch iteration conteins 10 operations. 
120 FOR 1=10 TO 100 STEP 10 


130 

s=o: K= 

1.012321: GOSUB 500: 

T1=T 



140 

FOR J=1 

TO i: 

s=sfk: s=s-i-K: 

s=s+k: 

s=s-fk: 

S=3-FK 

150 



3=siK: s=siK: 

s=s+k: 

s=s-fK: 

S=S+K 

160 

NEXT j: 

GOSUB 

500: TA=T-Ti: 

T1=T 



170 

FOR J=1 

TO i: 

s=s-k: s=s-k: 

s=s-k: 

s=s-k: 

S=S-K 

180 



s=s-k: s=s-k: 

s=s-k: 

s=s-k: 

S=S--K 

190 

NEXT Jt 

GOSUB 

500: TS=T-Ti: 

T1=T 



200 

FOR J=1 

TO i: 

S=S)f:K: s=s^:k: 

s=S)icK: 

s=s#k: 

S=S!i:K 

210 



S=StKt s=ss:k: 

s=B)r.K: 

S=Sif:K: 

S=S#K 

220 

NEXT j: 

GOSUB 

500: TM=T~Ti: 

T1=T 



230 

FOR J=1 

TO i: 

s=s/k: s=s/k: 

s=s/k: 

s=s/k: 

S=S/K 

240 



s=s/k: s=s/k: 

s=s/k: 

s=s/k: 

S=S/K 

250 

NEXT Jt 

GOSUB 

500: TEi=T-Tl 





260 LPRINT USING Gl? I?TA?TS?TMjTD 
270 NEXT I 
280 STOP 

500 'subroutine returns the tiHie in seconds 
510 H=yAL(Mnil(TIMEI?ll?l )):' isolate hours 
520 M=yAL(MIEi$(TIMEI?13?2)):' isolate minutes 
530 Sl=VAL(Miri$(TIME$?16»2)):' isolate seconds 
540 T=Si+Mii:60TH«3600I RETURN 
10000 END 


OPS 

ADD 

SUB 

HUL 

DIM 

10 

1 

0 

1 

n 

20 

1 

2 

1 

3 

30 

n 

JU 

2 

3 

3 

40 

3 

3 

3 

5 

50 

3 

4 

4 

5 

60 

4 

4 

5 

6 

70 

4 

5 

6 

7 

80 

5 

5 

7 

9 

90 

6 

6 

7 

10 

100 

7 

7 

8 

11 
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10 'FILENAHEt "C6P8" 

20 'function: SIHPLE hath PROGRAH using TIHEIi INPUTS 
30 ' AUTHOR : JPG DATE: 7/79 

40 DEF FNT(AjB)=VAL(HID$(TIHE$)>AjB)) 

50 CIS 

60 ' linie user responses to 10 seconds or less 
70 A=RNn(100): B-RND(IOO) 

80 PRINT e 520? A5"-f" SB? " = " 5 
90 GOSUB 170: T1=^T: Y$=’"’ 

100 X$=INKEY$: IF X$<>"" THEN 130 
no GOSUB 170: if T-TKIO then 100 

120 print: print "sorry -- OUT OF TIHE": GOSUB 210: GOTO 70 
130 IF ASC(X$)<>13 THEN Y$=YfiX$: PRINT 0 534?Y$n GOTO 100 
140 C=VAL(Y$): PRINT 
150 IF C=ATB THEN PRINT "CORRECT!!" 

ELSE PRINT "SORRY? THAT IS INCORRECT*" 

160 GOSUB 210: CLS: GOTO 70 

170 ' TIHING SUBROUTINE 

130 H=FNT(11?1): H=FNT(13?2): S=--FNT( 16?2) 

190 T=S+H!ic60TH)!c3600: RETURN 

200 ' hold screen for b few seconds? then do becK 
210 FOR 1=1 TO 4001 NEXT It RETURN 
10000 END 


32 + 80 - 

SORRY — OUT OF TIHE 
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If you need more accurate timing of a routine or of a response 
from a user, you may access the running clock of the computer from 
BASIC by PEEKing at (decimal) addresses 16448 through 16450. 
Try this program to test this feature. 


10 'FILENAHEl "C6P9" 

20 'FUNCTION: USE COMPUTER AS STOPyATCH (TO lOOTHS OF SECONDS) 
30 ' AUTHOR : SPG DATE: 7/79 

40 CLS: M=16450: S=16449: P=16448 'clocK locations in memory 
50 INPUT "TYPE 'ENTER' TO BEGIN"»A$ 

60 ' Set orisinsl timing values 
70 CLS: M1=PEEK(H): S1=PEEK(S): P1=PEEK(P) 

80 INPUT "PRESS /EN/ AGAIN TO STOP THE TIMER"JA$ 

90 ' get final timing values 

100 M2=PEEK<M): S2=PEEK(S): P2=PEEK(P) 

110 ' compute the elapsed time 

120 E2=M2*15300+S24:255+P2: El=Ml«:15300iSlt255-fPl 

130 print:print 

140 ' change the time to seconds 
150 ET = (E2-E1 )/255 

160 ' print the elapsed time in seconds 

170 PRINT USING "ELAPSED TIME WAS ABOUT ##♦,## SECONDS"JET 

10000 END 


This chapter has explored a number of niceties that Radio 
Shack’s TRS-80 provides the programmer. These features give a 
flexibility to BASIC that tends to make it more acceptable as a 
language to be used in most application areas. But it is the ability to 
deal with files that makes BASIC particularly useful in business, 
education, scientific, and home applications. The file handling 
capabilities of the microcomputer will be discussed in depth in the 
next chapter. 


Chapter 6 I/O, Strings, and Disk BASIC 


115 






Sequential Access The next three chapters will differ from those that have gone 

File Processing before because they cover the BASIC commands, statements, and 

functions that deal with cassette and disk files. This chapter will 
cover the subject of sequential files on tape and on disk. 


Commands for 
Program Files 


SA VE, CSA VE Files on tape or disk can be eithef programs or data, and in most 

instances both kinds of files will reside on a given medium. When a 
program is stored on disk or tape, it is copied directly from memory 
onto the medium as a whole. The command to do this is CSAVE for 
a tape file and SAVE for a disk file. The name under which the 
program is stored is written within quotes immediately following the 
SAVE or CSAVE command. The names of programs stored on tape 
are limited to a single character, but the names of programs on disk 
can be from one to eight characters long, as discussed in the TRSDOS 
manual. Just remember that the SAVE command does not store data 
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files, just program files. The SAVE command can store a program on 
disk in ASCII character format by placing a comma and the letter A 
following the file name. 


LOAD, CLOAD The reverse of the program saving process takes programs 

stored on disk or tape and copies them into the computer’s memory. 
The commands that effect this transfer are LOAD for disk programs 
and CLOAD for cassette tape programs. The file name must be 
specified for a disk load. If the file name is not specified for a tape 
load, the computer will load the first program it encounters on the 
tape. 


KILL, RUN Disk BASIC has three more commands that manage program 

files. The KILL command is used to delete a file from the disk. It 
is the same command that TRSDOS uses (see Appendix E for a list 
of alTTRSDOS commands), except that the file name must be 
enclosed in double quotes. The RUN command can be used to run 
the program in memory, or in Disk BASIC it can be used to load a 
specified program, then run it. In Disk BASIC the LOAD command 
can also copy the named program into memory and run it if the 
command ends with a comma and the letter R. 

Examples: 


10 LOAD "PROGl" 

20 RUN "PR0G4" 

30 LOAD "PR0G4%R 
LOAD "PR0G2" 

RUN "PROGS" 

LOAD "PR0G3"»R 

SAME "PROGS" 

KILL "PR0G6" 

CSAVE "B" 


DisK BASIC coHiaand within 3 proSPsiBf 
After loedind the prosrsmj the coniputer 
returns to the coiftmand iftode (>READY)» 

Load the nsmed proarem froa disK snd 
beain its execution* 

This effect is identical to line 20. 

Load the program from coamand aode* 

Load the prodraa? then run it. 

This coBimand is identical to RUN 
"PROGS". 

Save the prodraa in Bieniory to disK 
under the name "PROGS". 

Delete the file called "PR0G6* froa 
the diskette. 

Save the prodrasi in Bieaory to cassette 
under the naBie "B". 
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MERGE 


CLOAD "X" 

CLOAD 


Load the prodreni "X” froBi casaelte to 

iiioniory* 

Load the next program on the cassette to 
Hiefitory. 


RUN 


Execute the prograBi 


in BieBiory. 


SAVE "PR0G6%A 


Save the prodraiii in niesiory onto disk 
in ASCII < character) for-Biatv one record 
per line» 


This command combines a program in memory with a program 
on disk. The program on disk must have been SAVEd in ASCII 
format with a SAVE “filename”,A command. The result of the 
combination is left in memory. The MERGE command meshes 
together, or merges, the two programs according to their respective 
line numbers. If the disk program has a line number that is not 
present in the memory version, that line is added to the memory 
version. If the line number is present in both versions, the line from 
the disk version replaces the line in memory. 

Examples: 

Assume the disk file’s name is “TESTSUB”, and the command 
is MERGE “TESTSUB” 


Memory Disk 

lOA 15B 

20A 25B 

30A 


Memory Disk 

lOA SOB 

20A 40B 


Memory Disk 

lOA 20B 

20A SOB 

SOA 40B 


Result in memory 
lOA 
15B 
20A 
25B 
SOA 

Result in memory 
lOA 
20A 
SOB 
40B 

Result in memory 
lOA 
20B 
SOB 
40B 


The MERGE command is nice for adding commonly used 
routines to various programs. For example, suppose you have a good 
sorting subroutine that is numbered from 1000-1999. You can 
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Commands for 
Data Files 


OPEN, CLOSE 


MERGE it into a number of programs without having to reenter it 
line by line in each program. 


Data files are entirely different from program files. For this 
reason very few commands work for both kinds of files. The KILL 
command is one of the few exceptions that doesn’t discriminate. It 
can delete both program files and data files. 

A data file is a collection of records. Each record is a related 
set of data. For example, you could have a data file of rainfall for a 
given year. There might be 12 monthly rainfall records, each one 
containing between 28 and 31 data values for the daily rainfall. Or 
maybe there would be 52 weekly records, each with 7 daily data 
values. You could even arrange the data to be hourly (if needed) so 
that each of the 365 records contains 24 values. It is the 
programmer’s decision to arrange the data and records. The 
commands that manipulate data files are of two types: Either they 
deal with the entire file as a unit, or they manipulate records one at a 
time. You have already seen the KILL command, which deals with 
the entire file. 


The records on a disk data file are inaccessible unless the file is 
opened for use. Also, some records on a file may be lost if that file 
is not closed when processing is complete. 

The OPEN command has two primary functions: 

(1) It identifies the mode of the file. That is, the OPEN 
statement prepares the file for (a) input, in which records 
can be transferred sequentially from file to memory; 

(b) output, in which records can be transferred sequentially 
from memory to file; and (c) randoffiy in which the transfer 
can occur in either direction. 

(2) It associates the name of a file with a/z7e number, so that 
commands using the file need only refer to its number once 
the file has been opened. 

The OPEN command has the format: 

OPEN m$,r)[,filenanie$ j 

where m$ is either ‘T” for input mode, ‘"O” for output mode, or 

‘‘R” for random access mode. The next chapter, which. 

discusses direct access files, will cover the case wherek^mS is ‘‘R”.. 
n is a numeric expression from 1 to 15, which is the number 
that the program uses to refer to the file, filenames is a 
standard file name. 

Once the records on a file have been read, written,or modified, 
the file must be closed. The command 

close n 

closes the file numbered n. The CLOSE command can have more 
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than one argument separated by commas, or it can be just the word 
CLOSE. In the latter case, all opened files are closed. 

When a program deals with tape files, OPEN and CLOSE 
commands are not used. 

Examples: 


10 OPEN "rM»’’INVEN/DAT" The file ceiled INMEN/DAT is 

openedforinput* It is file #1* 

20 CLOSE 2 , The file nutribered 2 is opened for 

30 OPEN "0%2^''HASTER■^-/ oulmU If the old file 12 (the 

one thelwes closed) wes celled 
HASTER? it is no lonSer eccessihle 
for input* 


40 CLOSE 
50 CLOSE lf2»3 

60 close: open "I%15»''ACCRCVB/nAT" 

70 INPUT "FILE NAME"jF$: OPEN "rS2fF$ 
80 INPUT "H0DE”»M$: OPEN M$»5»"HASTER2" 


Sequential files, whether they are on cassette tape or floppy 
disk, are accessible with only two commands that actually read or 
write records once the file is opened. They are the INPUT # n. If 
n is -1, the cassette drive is accessed, otherwise n must be between 
1 and 15 inclusive, and it corresponds to the file number that was 
assigned with the OPEN statement. 

Two variations to the INPUT and PRINT are available for 
record input and output. These are the LINE INPUT # and the 
PRINT #, USING. The formats of the two statements are: 

INPUT# n,vl,v2, .. . 

LINE INPUT #n,vl,v2, . . . 

PRINT # n, vl,v2, .. . 

PRINT # n, USING f$; vl, v2, . . . 

With the LINE INPUT # statement, there can be only one string 
variable name following the command. 

Examples: 

50 INPUT t-ljAfBffC 
60 PRINT #-l!-A5B$5C?X 
70 PRINT 
80 LINE INPUT 
90 PRINT #3» USING "fU 


Sequential File 
INPUT and PRINT 
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Command 

File medium 

File transfer 

Variables 

INPUT # n, . . . 

disk 

file to 

string and 



memory 

numeric 

PRINT # n, . . . 

disk 

memory 

string and 



to file 

numeric 

INPUT#-!,... 

cassette 

file to 

string and 



memory 

numeric 

PRINT #-l, . . . 

cassette 

memory 

string and 



to file 

numeric 

LINE INPUT # n 

disk 

file to 

one string 



memory 

only 

PRINT # n, USING . 

. . disk 

memory 

any, 



to file 

formatted 


Table 7.1 Sequential File Commands 


The following program illustrates first the output of numeric 
variables to cassette tape, then the input from that same tape. 


10 'FILENAME! "C7P1” 

20 'FUNCTION! STORE A NUMERIC MATRIX ON TAPE 

30 ' AUTHOR: ! JPG BATE! 8/79 

40 IIIM X(define melriM bs 30 eiemenis by 5 eiemeriis 

50 'fill malriK with rendoRi veiues from 1001 to 9999 

60 FOR 1=1 TO 30! FOR J=1 TO 5 

70 X(I»J)=RNIK 8999)41000! PRINT XCIsJ)?! NEXT J»I 

80 ' now store the metrix on teee 

90 PRINT "Rewind the tsF-e end det PBst the leeder-f" 

100 INPUT "then press /EN/"»A$ 

110 FOR i=lTO30 .^ 

120 PRINT 4-ljX(Iyl)?X(If2)IX(Ii.3)?X(I?4)yX(Ij5) 

130 NEXT I 

140 INPUT "Rewind sdein? press pIbs? then press /EN/"?A$ 

150 FOR I = 1 TO 30! INPUT #-!» A^BfC^DfE 
160 PRINT "REC *" 5 IP'CONTAINS" 5 Aj‘B?C?D5E 

170 NEXT I 
10000 END, 
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The next program represents a disk-based game that uses a 
sequential file called “GEOG/DAT”. The point of the game is to 
challenge the computer in a dialog to see if the computer’s “memory’ 
contains the name and description of a geographical location that the 
player knows. 

The program uses a data structure that is known as a binary 
tree. Each record has two elements of string information, the name 
of the geographical location, and the characteristic that distinguishes 
it from the previously reached location. Each record also has two 
pieces of numeric information, YES and NO links to further 
locations. Thus each record has four fields. 


Variable 

name 

Field 

length 

Type 

Description 

LI 

4 

Numeric 

YES links, 0 to 999 

L2^ 

4 

Numeric 

NO links, 0 to 999 

Al$ 

Not limited 

String 

Location name 

Q$ 

240-len(A$) 

String 

Distinguishing 

characteristic 


Table 7.2 GEOGRAPH Record Layout 


The program “learns” new geographical locations and their 
characteristics from the player. It starts the play with the question, 
“ARE YOU THINKING OF A GEOGRAPHICAL LOCATION?” 
There are five possible responses: 

1. A YES response elicits a very specific location, for example, 

“IS IT LAKE ERIE?” 

2. A NO response is refused, and the computer displays the 
message, “YES, LIST, SAVE, OR DEBUG”. Later on in 
the game, a NO response eUcits a very general characteristic, 
for example, “IS IT A LAKE?”. 

3. DEBUG displays a table of links, locations, and 
characteristics. It is used only for debugging purposes. 

4. LIST displays all locations that the computer “knows”. 

5. SAVE transfers all records, both those that were initially 
loaded into memory from the file, and those that the 
computer “learned” during the play. 
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Consider the sample dialog below; 


ARE YOU THINKING OF A GEOGRAPHICAL LOCATION? 

IS IT A LAKE? NO 

IS IT A MOUNTAIN? YES 

IS IT MT. POPOCATAPETL? NO 

IS IT IN AFRICA? YES 

IS IT MT, KILIMANJARO? YES 


I THOUGHT SO. 

ARE YOU THINKING OF A GEOGRAPHICAL LOCATION? YES 
IS IT A LAKE? YES 
IS IT LAKE ERIE? NO 


IS IT IN EUROPE? NO 


WHAT 

TYPE 


HAS THE PLACE 
A CHARACTERIST 


YOU NERE THINKING OF? LAKE 
IC WHICH WOULD DISTINGUISH 


TITICACA 
LAKE TITICA 


FROM LAKE GENEVA 

? IS IT IN SOUTH AMERICA 

ARE YOU THINKING OF A GEOGRAPHICAL 


LOCATION? 


Table 7.3 shows the contents of a file record by record after 
one typical session of this game. 


Record# Al$ Q$ LI L2 


1 

LAKE ERIE 

IS IT A LAKE 

4 

2 

2 

MT. SHASTA 

IS IT A 
MOUNTAIN 

6 

3 

3 

CINCINNATI 

WHAT ABOUT A 
CITY 

7 

999 

4 

LAKE 

TITICACA 

IS IT IN SOUTH 
AMERICA 

4 

5 

5 

LAKE GENEVA 

IS IT IN EUROPE 

5 

9 

6 

MT. EVEREST 

IS IT IN ASIA 

8 

999 

7 

WASHINGTON 

IS IT A CAPITOL 

7 

999 

8 

MT. FUJI 

IS IT VOLCANIC 

8 

999 

9 

LAKE MEAD 

IS IT DAMMED 

9 

999 

10 END END 

Table 7.3 Example Record for GEOGRAPH 

0 

0 


This table can be represented as a binary tree structure, 
which indicates how the two links LI and L2 tie the array 
together. 
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^ NVOOfiTMiKi? 





777 


777 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 


Figure 7 .1 GEOGRAPH Binary Tree Structure 

'FILENAHE: "C7P2’’ 

'FUNCTION: GEOGRAPHY QUIZ GAME 
; AUTHOR : JPG ^ bate: 6/79 

Q$—Cl isp sc ter i 5 1 ic j Al$—iocs lion pisbis? A$-ieBiForspy sipinS 
LI—lefi, liPiK? Li - pishi liriK? N —nuBihc’p of* fIbccs 

DEFINT I -N: clear 2000: DIM Q$( 50 )?Al$( 50 )?L1C50 )?L2(50 ) 
set UP fipst record if needed 
INPUT "DOES THE DATA FILE EXIST"?A$ 

IF A$<>"YES" THEN Q$(1)-"IS IT A LAKE": LK 1 )-nL2< 1 )=999: 

N=i: A1 $( 1 LAKE ERIE": GOTO 130 

Set sll filed sites' 

CLOSE i: OPEN "rM?"GEOG/»AT"i 1=0 


I=I + i: INPUT ♦!» Q$( I )rLl( I )?A1$( I )jL 2( I )l 
IF Q$(I)<>»END" THEN 120 


PRINT I 


\ 


140 N=I-i: INPUT "/CR/"5A$ 


150 

160 

170 

180 

190 

200 

210 

220 


IF N>50 THEN PRINT "C A R E F U 


MORE THAN 50!" 


cLs: 


next Pisee 


INPUT "ARE YOU THINKING OF A LOCATION"sA$ 
IF A$="LIST" THEN K=1 
IF A$="YES" THEN K=2 
IF A$--="DEBUG"THEN K=3 
IF A$="SAyE" THEN K=4 
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I: 




230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 


ON K GOSUB 270?300?600?630 
IF K>0 AND K<5 THEN 180 

»vre„ i TCT„ QM} 


INPUT "YES? LIST? SAME? OR DEBUG 


f -r j-Tf. -i riA 

bU } U i.Ov 


/CR/"?A$ 

"LIST" ROUTINE 
PRINT "THE PLACES I KNOW ARE 
FOR 1 = 1 TO Nt PRINT Alfd )? t NEXT I 
INPUT " /CR/"?A$: RETURN 

' "YES"? the plBwer is IhinKins of s Fiece 

1=1 

PRINT Q$(I)?: INPUT A$ 

IF A$="YES" THEN 410 
IF A$<>"N0" THEN 320 

'■ NO? not the listed chereclerisiic so if ri^ht linK 
' is null? use it "" otherwise Set new site's deleils 
IF L2fI )<>999 THEN I=L2(I )t GOTO 320 
ELSE GOSUB 540 _ 

' set UP b11 liuKs Bfid set- b new locoi-iuii 

L2(I)=NiU GOSUB 5801 RETURN' 

t ssK if this is the correct chBr ecter-islic 

PRINT "IS IT " ?‘A1$( I >^1 INPUT A$ 

IF A$<>"YES" THEN 460 

' yes? the coHiPuter Suessed it (print tne liiesstiHt; ? 
PRINT 1 print: PRINT "LT, I THOUGHT SO?" 

FOR X=1 TO 400: NEXT X: RETURN 
IF A$<>"N0" THEN 410 

‘ Set next locstion if left link isrr^t nuii 

IF lOLKI) THEN I=Li(I): GOTO 320^ 

set the new locBtion's detBils 

GOSUB 540 

' set UP eil new links Bnd det neKt location 

Ll(I )=N+i: GOSUB 580: RETURN 
' DIALOG 

INPUT "WHAT WAS THE PLACE YOU WERE T^NINKING OF" ?A$ 
PRINT "TYPE A CHARACTERISTIC ihst WOULDDISTINGUlSH 
PRINT A$?" FROM "?A1$(I): INPUT Ql$: RETURN^ 

' new location links 

n=n+i:q$( n)=qi$:ai$( n )=a$:li(n )=n:l2( n )=999:return 

' "DEBUG" routine — disp-lBys ail links? date 

PRINT"! Q$(I) A1$(I) LKI) L2( I)". 

FOR 1=1 TO NtPRINT I?Q$( I)?Alf( I )?L1( I )?L2d llNEXl i 
INPUT "/CR7"?A$: RETURN 


630 ' "SAVE" routine 

640 PRINT "REC*t"?: CLOSE 1* OPEN "0"?1?"GEOG/DAT" 
650 FOR 1=1 TO N 

660 PRINT tl?Q$( I )?"?"?L1(I )?"?"?A1$(I )?"?"?L2(I ) 

670 PRINT I?: NEXT I 

680 PRINT *1?"E;ND?" ?0?‘’END?"?0 

690 INPUT "/CR/"?A$: RETURN 

10000 END 
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The following program demonstrates two software techniques. 
One of these, the Shell-Metzner sort, is also used in a later chapter. 
The other technique, that of merging two sequential files, is the 
primary reason for including the program here. 

The program has three parts. Part 1 creates a number of files, 
that nurnber determined by the user, and all files are of the same 
size, again determined by the user. Part 2 sorts each of the files in 
memory, then rewrites the files in sorted order. Part 3 merges all 
the files into one which is in sorted order. 

Since the program’s purpose is to demonstrate a technique 
rather than to produce output for some more useful reason, the 
output that follows the listing should be considered in that light. 
The first part of the output shows three unsorted files. The second 
part shows those three files, each in sorted order, The last part 
shows the single file that results from the merge operation. Note 
that this sorted output could not have been produced nearly as 
quickly had the sort been conducted any other way. 


10 'FILENAME! ''C7P3" 

20 'FUNCTION! SORT-MERGE OF SEQUENTIAL FILE 
30 ' AUTHOR ! JPG DATE! 11/79 

40 CLEAR 2000! CEFINT A-Z! CLS! DIM N$( 50 ) 

50 ^ Mj 

60 INPUT "How Bisny files" jNF 

70 INPUT "How ftsny entries will be in eech file" 
80 INPUT "File Sroue nsBie" yF$ 

90 PRINT "0=Shuffie l=Creele 2=Edit 3=Sori" 

95 INPUT "4=Merge 5-Slop"? Y 

100 ON Y+1 GOSUB 110?170y230y320y480! GOTO 90 
110 ' shuffle the entries in sil of the file<= 
120 FOR W=1 TO NF! FL$=F$FRIGHT$(STR$( W)?1) 

130 K=l! GOSUB 630 

140 FOR J=1 TO SIZE! A=RND(SIZE)! B=RNIi( SIZE) 

150 T$=N$(A)! N$(A)=N$(B)! N$(B)=T$! NEXT J 
155 LPRINT "File "? FLf? " in orisinsl order." 


5IZE 


160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 


GOSUB 670! N=SIZE! GOSUB 720! NEXT W! RETURN 
create the files 

FOR W=i TO NF! FL$=F$iRIGHT$<STR$<U)?1) 

FOR J=1 TO SIZE! PRINT "FILE ♦"yU?"y ENTRY #"?.!? 
INPUT N$(J)!JCXT J! PRINT 
K-i: GOSUB 670 ' write out neines on file 

NEXT «! RETURN 

edit entries within e file 
FOR W=1 TO NF! FL$--F$ERIGHT$( STR$( W )? 1 ) V 

PRINT "INPUT FILE IS ",‘FL$! K=l! GOSUB 630' read 
FOR J=1 TO SIZE 

PRINT N$(J)y TAB< 30 )?"!"? 

INPUT NE$! IF LEN(NE$K>0 THEN N$( .1 )=NE$ 

NEXT J - ^ 

GOSUB 670 ' write out edited file 

NEXT W! RETURN 
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320 ' single file sort 

330 CLSi FOR U=1 TO FL$=FliRIGHT$( STR$i U)?1> 
340 K=lt GOSUB 630 ' reed the file 


370 M=3IZE 

380 M=INT(M/2)J PRINT Hj* 


IF H=0 THEN print: GOTO 


390 k=size~m: J=1 


40 


400 I=J 

410 L=IiH: IF N$( I K=N$( L ) THEN 430 

420 T$=Nfn): N$(I)=N$(L): N$(L)=T$: I=I--M 

425 IF I>=1 THEN 410 

430 .J=J + i: IF J<=K THEN 400 ELSE 380 

440 LPRINT "File "I FL$? " in sorted order." 

450 N=SIZEt GOSUB 720 ' print the sorted file 
460 K=i: GOSUB 680 ' write out sorted file onto disK 

470 print: print: print: print: next u: return 


480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 


nt&r i 1 G'S 

PRINT "Reauires"jNF+l»"files /EN/": LINE INPUT A$ 
LPRINT "Nersed file 'NEW'.": OPEN "0" ?NF-f 1 »"NEW" ' open 
FOR W=1 TO NF: open "I" jW?F$-fRIGHT$( STR$< W )j 1 ) 

INPUT #W» N$(W): K(W)=i: NEXT W 

CH=o: s=o: plug$="zzzzzz": gosub 590 

PRINT $NFil»SHALL$»”!-"? 

IF K(M)C... 

N$(H)=PLUG$:S=S+1:IF S<NF then gosub 590:GOTO 540 
print:close:size=size*nf:k=nf+i:fl$="new":gosub 630 

n=size: gosub 720 : size^size/nf: return 

^ find the SBfBllest of NF strings 


:cn=cn+i:printcnj: K(M)=K(H)ii 
SIZE INPUT #HfN$( M ):G0SUB 590:GOTO 540 


610 F0R^"u=l TO NF: IF N$( W XSMALL* THEN SMALL$=N$( U ):H=U 
620 NEXT U: RETURN 

630 ' loed e dete file from disKette 
640 OPEN "I"fKi-FLf 

650 FOR J=1 TO size: INPUT ♦KjN$(J): NEXT J 


file 


660 close: return 

370 ' ssve B dete file-on disKette 
680 OPEN "0"yKjFL$ 

690 FOR J=1 TO SIZE 

700 PRINT tK? N$(.J )»"»"» 

710 NEXT j: print: close: return 
720 ' print b file from Hiemory 

730 Nl=INT(N/3): FOR J=1 TO N1 . .. . 

740 LPRINT USING J$f JjN$( J )» J-FN1?N$( JfNl )? J+ZSNl » N$( J+2iKNl) 
750 NEXT J: LPRINT: RETURN 
10000 END 
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File tesll in originel 

1 SALIMA TELLY 

2 FISTULA FELICITY 

3 BELLER ELLERY 

4 HEGIRA IRA 


oroG'r «• 


5 GNASHGNAT NATH^ 


6 PONTIAC CARLO 

7 SITHLE SIBILANT 

8 PARSLEY PELMIS 


1 LANCASTER BART 

2 SITHLE SIHEON 

3 PARMENU HARVIN 

4 ASININE ARNOLD 

File tests in orisinsi 

1 GABLE MARK 

2 SITHLE SAMANTHA 

3 ENEMA ANOMIE 

4 MUSHMOUTH MUNGO 


order * 

5 GROMMET ANDROMEDA 

6 CUERMO CERVESA 

7 MONACO MONICA 

8 POWER CYCLONE 

order* 

5 LANCHESTER ELSIE 

6 PATELLA PETER 

7 MERGER MARGINAL 

8 SITHLE SYBIL 


File testl in sorted or 

1 ANOMALY ANTHONY 

2 BELLER ELLERY 

3 FISTULA FELICITY 

4 GNASHGNAT NATHANIE 

File test2 in sorted o 

1 ALIQUOT ALICE 

2 ASININE ARNOLD 

3 CUERMO CERMESA 

4 GROMMET ANDROMEDA 


5 HEGIRA IRA 

6 LAMORIS MORRIS 

7 MINDERBINDER MILO 

8 PARSLEY PELMIS 


-r« 

5 LANCASTER BART 

6 LOOSELIPS LINDA 

7 MONACO MONICA 

8 PARMENU HARMIN 


File tests in sorted order 


1 ANOMALY ANNABELLE 

2 BANDERSNATCH FROMI 

3 ENEMA ANOMIE 

4 GABLE MARK 

Merged file 'NEW'* 

1 ALIQUOT ALICE 

2 ANOMALY ANNABELLE 

3 ANOMALY ANTHONY 

4 ASININE ARNOLD 

5 BANDERSNATCH FRUMI 

6 BELLER ELLERY 

7 CUERMO CERMESA 

8 ENEMA ANOMIE 

9 FISTULA FELICITY 

10 GABLE MARK 

11 GNASHGNAT NATHANIE 

12 GROMMET ANDROMEDA 


5 HARSHBARGER HERSCH 

6 LANCHESTER ELSIE 

7 MERGER MARGINAL 

8 MUSHMOUTH MUNGO 


13 HARSHBARGER HERSCH 

14 HEGIRA IRA 

15 LANCASTER BART 

16 LANCHESTER ELSIE 

17 LAMORIS MORRIS 

18 LOOSELIPS LINDA 

19 MERGER MARGINAL 

20 MINDERBINDER MILO 

21 MONACO MONICA 

22 MUSHMOUTH MUNGO 

23 PARSLEY PELMIS 

24 PARMENU MARMIN 


9 MINDERBINDER MI 
iU hNUMmLI nNiHuNy 

11 LAMORIS MORRIS 

12 UMULA URSULA 


9 SIDDHARTHA GHAUTAH 

10 ALIQUOT ALICE 

11 MERMIFORM MERNON 

12 LOOSELIPS LINDA 


9 RUBELLA ELLA 

10 HARSHBARGER HERSCH 

11 BANDERSNATCH FRUMI 

12 ANOMALY ANNABELLE 


9 PONTIAC CARLO 

10 SALIMA TELLY 

11 SITHLE SIBILANT 

12 UMULA URSULA 


9 POWER CYCLONE 

10 SIDDHARTHA GHAUTAM 

11 SITHLE SIMEON 

12 MERMIFORM MERNON 


9 PATELLA PETER 

10 RUBELLA ELLA 

11 SITHLE SAMANTHA 

12 SITHLE SYBIL 


25 PATELLA PETER 

26 PONTIAC CARLO 

27 POWER CYCLONE 

28 RUBELLA ELLA 

29 SALIMA TELLY 

30 SIDDHARTHA GHAUTAM 

31 SITHLE SAMANTHA 

32 SITHLE SIBILANT 

33 SITHLE SIMEON 

34 SITHLE SYBIL 

35 UMULA URSULA 

36 MERMIFORM MERNON 
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The last program in this chapter illustrates the use of sequential 
ASCII files in one very common and necessary application, the 
renumbering of a BASIC program. It contains many advanced 
BASIC programming features, such as variable dimensioning, input 
and output mode sequential files, MID$, and INSTR. 


10 'FILENAME: “C7P4" 

20 'FUNCTION: RENUMBER DISK BASIC PROGRAMS FROM BASIC 
30 ' AUTHOR : SPG DATE: 1/13/79 

40 CLEAR 1000: DEFINT A-Z 

50 cLs: print: print 


b* 


60 PRINT 
70 PRINT 
80 PRINT 
90 PRINT 
100 PRINT " 
no PRINT " 

120 PRINT " 

130 PRINT " 

140 PRINT ” c. 

150 PRINT “ 

160 PRINT '■ 

170 print: print 

180 T$=INKEY$: IF 


"Keep the following in mind when using this progreHi:' 
" 3* Your progreni biusI slresdu he ssved on" 

" disK in ASCII forniBlC 

The progreBi on file can't contain" 
the following tape of line:" 

IF X==Y 100" 

Change all such lines to:" 

IF X=Y THEN 100" 

Ana program stateaients within a string" 
will be renumbered." 

(ExasiPle: 10 PRINT 'GOTO 240' )" 

"/EN/"» 

T$="" THEN 130 


190 CLs: print: print . „ 

200 PRINT " After this program is finished renumberins 
210 PRINT "aour programr the new renuriibered version will" 

220 PRINT "be under the file name RENUM/DAT" 

230 PRINT 

240 PRINT " If at ana time? this program is stopped before" 
250 PRINT "the complete renuBibering? aour program will 
260 PRINT "be saved under its old file name ( this program" 

270 PRINT "doesn't change aour program at all T it creates a" 
280 PRINT "coBiPletela new file)." 

290 print: print "/EN/" 

300 T$=INKEY$: IF T$="" THEN 300 

310 CLs: print: print 

320 PRINT " How mana lines are in the program that aou 
330 INPUT "want renumbered (approximatela)"?M 
340 M=M+20: DIM BKM)? B2( M) 

350 INPUT "What should the new line increment be"fX 
360 INPUT "What should the first line number be'SY’. Y=Y-X 
370 IF Y<0 THEN PRINT "»> Error «< Tra again"*. GOTO 350 
380 INPUT " What is the name of the program" jB$ 

390 OPEN "I"j1»B$ 
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400 ' set UP srrsys Bl (old line *s) end B2 (new line 4<=.) 

410 K=K+i: PRINT Kl 

420 IF EOF(l) THEN CLOSE! PRINT! GOTO 460 
430 LINE INPUT 41,A$ 

440 B1(K)=VAL(LEFT$( A$»INSTR(A$j" ■•)-l))! B2(K)=KmY! GOTO 410 

450 ' open both files 

460 OPEN "TflfBI! OPEN "0" ,2»"RENUM/DAT" 

470 ' iftBin routine imniedietely below 
480 D=Ii+l 

490 POKE 14305»1 ' Keep disK drive on during renuHiberinS 
500 IF E0F( 1) THEN 10000 

510 LINE INPUT #lfA$! GOSUB 580 ' reed end chsnde s line 
520 ' save & print the line? then go beck for enother 

530 PRINT *2?A$! PRINT A$! GOTO 480 

540 * t t * * He t t *. t t $ t m ^ i: Hi t 

550 't routine to chsnde the line number of e line ^ 

560 '* end chende ell reference numbers following commends t 

570 ' % t t t t t t t t *. t t t m t t t t t t t t t t t t t % t 

580 H=l! GOSUB 830' chende the line number of this line 

590 ' skip the remerk lines 

600 IF INSTR(A$?"'")>0 AND INSTR(A$?”K7 THEN RETURN 

610 IF INSTR(A$f "REH" )>0 AND INSTR(A$?"REM")<7 THEN RETURN 

620 RESTORE ' reset the dete pointer 

630 'date of the list of commends to check for 

640 DATA G0T0?G0SUB?THEN?ELSE?D0NE 

650 ' Set next commend 

660 ' if done? check for 0N*.*G0T0's end 0N»..GOSUB's 

670 READ N$! H=i! IF N$="DONE" THEN 760 

680 H=INSTR(H?A$?N$) ' is the commend in the line? 

690 IF H=0 THEN 670'if not? then go beck to det next commend 
700 ' N$ was found in the line! 

710 H=H+LEN(N$)'H is where the next possible line number is 
720 IF VAL(MID$( A$?H))=0 THEN 680 ' not e number efter N$ 

730 GOSUB 830! GOTO 680' chende the number efter N$ 

740 ' subroutine to chende the numbers in ell 
750 ' "ON...GOTO. ..'5 end ON. ..GOSUB, . .'s 
760 H=INSTR( A$?"0N" ) 

770 IF H=0 THEN RETURN ' ON not found? so do beck 

780 ' if no commes? then chendes alreeds done, return 

790 H=INSTR(H?A$?"?" )+l! IF H=1 THEN RETURN 

800 ' chende the line number efter the comme? end check more 

810 GOSUB 830! GOTO 790 

820 ' routine to chende first line number efter H in A$ 

830 FOR R=H TO LEN(A$)! IF MID$(A$?R?1)=" " THEN NEXT R 
840 H1=R 

850 FOR R=H1 TO LEN(A$)! T1=ASC(MID$( A$?R)) 

860 IF Tl>47 AND Tl<58 THEN NEXT R 

870 V=VAL( iiID$( A$?H1 ?R-H1)) ' V is the line number 
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880 ' checK to see if M is a vslid line number 

890 FOR T=1 TO M 

900 IF V=B1(T) THEN 940 

910 NEXT T 

920 GQSUB 950: RETURN ' not e valid line i 

930 ' yesj a dood change the number and return 

940 A$=LEFT$( A$fHl-1 )+MID$( STR$( B2( T ) )f2 )+Mni$( A$jR); RETURN 

950 ' error trapping subroutine? not found line number 

960 PRINTt PRINT! PRINT 

970 PRINT " I'm sorry? but I can't find" 

980 PRINT "line *" ?V?‘"anywhere in the program? 

990 PRINT 

1000 PRINT "It is referenced in this line!" 

1010 PRINT A$! PRINT 

1020 PRINT "These are you choices at this point!" 

1030 PRINT " 1? Continue? leaving this line as it is (or) 

1040 PRINT " 2? Stop execution of this renumbering program" 

1050 PRINT 

1060 INPUT " Which do you want me to do"?J 
1070 IF J=0 THEN RETURN 

1080 PRINT "O.K.? your program is unchanged under the old" 
1090 PRINT "file name of "?‘B$?"*" 

1100 PRINT 

1110 PRINT "Press /EN/ end I will delete the other unneeded" 
1120 INPUT "file"?T$ 

1130 KILL "RENUH/DAT" 

10000 END 


Sequential files are useful in applications that require the 
processing of most or all of the records on the file. Also, sequential 
files must be processed one record at a time in their physical order, 
and that severely limits the use of this method of file management. 
In the next chapter, you will discover the advantages that direct 
access file processing can offer. 
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Direct Access A computer without the ability to manage files is just a glorified 

File Processing calculator. Can you imagine the tedium of retyping the same long 

program every time you want to run it? Programming and files go 
together, because the importance of saving them, then having the 
computer be able to load them directly into memory, increases as the 
programs get larger and more sophisticated. But sequential files are 
at times rather cumbersome. Their structure dictates that on the 
average half of the file must be read to find a desired record, even if 
its position in the file relative to all of the others is known. 

Direct access files allow the programmer to read from or write 
to any one of the records on the file without any intermediate read 
or write operations. This is the reason for the access method having 
the name “direct access”. If one specific record is desired and its 
position is known, you can issue a command in BASIC that fetches 
the record without any unnecessary inputs of other records. The 
savings in time alone make direct access file processing a tempting 
method of data management. This chapter will review the 
programming techniques used for input and output of data on a 
direct access storage device, specifically the TRS-80 mini-floppy disk. 
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Figure 8.1 TRS-80 Disk Drive 


A programmer using sequential access techniques on a disk file 
is not concerned with the length of the record in a PRINT # 
statement. Put another way, the logical record (the set of related 
data items in the PRINT #) can vary in length; when the system 
calculates that over 256 bytes of records are ready to be stored, it 
writes out a physical record (one complete sector of bytes) to the 
disk. 

When a program uses direct access (also called random access) 
files, the output statement PUT does the actual transfer of 
information from memory to the disk. Contrary to the system doing 
the transfer as in sequential processing, the programmer is responsible 
for this operation. The record that is PUT onto the disk is again a 
256-byte physical record. However, the logical record size is also 
determined by the programmer and it can be as large as 255 bytes. 

The purpose of the FIELD statement is to define the layout 
of the 255-byte record to TRSDOS, the operating system. Not all 
255 bytes need to be defined, but in every case the FIELD statement 
starts in the first byte of the 255-byte physical record. 

With direct access file processing, the program prepares a special 
area of memory called the sector buffer , or just buffer , 255 bytes at a 
time. Data transfer to the disk is a three step affair: First, the buffer 
is described with the FIELD statement, then the variables in memory 
are placed in this buffer by using the LSET and RSET statements, and 
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Figure 8.2 Schematic of Data Transfer to Disk 


last, the entire buffer is copied onto the disk with the PUT 
command. Figure 8.2 illustrates this three-step transfer. 

Note that the variable names in memory and the buffer are 
different in figure 8.2. This is because they are physically located in 
two different places. 

The format of the FIELD statement is: 

FIELD fn, lenl AS varl, len2 AS var2, . . . 

The FIELD describes the buffer in all of these ways: 

1. (fn) File number or specifier, as defined in the OPEN 
statement, from 1 to 15. fn is any numeric expression, 
suchasl,2, ..., 15,A, X, 1*2, ... 

2. (lenl) Length of the first field, in bytes. 

3. (varl) Name of the first field, any legal Level II BASIC 
variable name. 

4. (Ien2, var2, len3, var3, . . .) Lengths and names of all 
subsequent fields in the 255-byte buffer. The sum of all 
lengths (lenl -l- len2 ■+...) cannot exceed 255, but it can be 
less. 
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Examples: 

500 FIELD 1? 255 AS H$ 

The entire buffer of File #1 is just one field, a string 255 
bytes long. Suppose the program has OPENed file #1, 
then the FIELD statement above is executed, then a 
specific record is read into the buffer with a GET (to be 
discussed later). Then the program has available for 
inspection and processing the 255-character string N$. 


500 FIELD 2? 40 AS X$» 8 AS D$j 100 AS .J$ 


The buffer for File #2 is partially used, with only 148 
bytes of the 255 bytes being fielded as three variables X$, 
D$, and J$. D$ might be an 8-byte double precision 
numeric variable stored as a string to conserve space. See 
the discussion on the conversion functions in this chapter. 
Note that all data fields that are described in the form of 
strings: Each integer value is fielded as a 2-byte string, 
each single precision value as a 4-byte string, and each 
double precision value as an 8-byte string, compared to 
sequential files, in which the value 1.23456789012345 
takes up 18 bytes, including the leading and trailing blanks. 


500 FIELD Kf 
10 FIELD Kj 
20 FIELD K» 
30 FIELD Kj 


64 AS B2$j 
128 AS B3$! 
1?2 AS B4$» 


32 AS N$( 1 )? 
32 AS N$<2)! 
32 AS N$(3)? 
32 AS N$(4)j 


20 AS S$(l )j 
20 AS S$(2)? 
20 AS S$(3)» 
20 AS S$(4)? 


12 AS C$(1 ) 
12 AS C$(2) 
12 AS C$(3) 
11 AS Cf(4) 


This series of statements describes a single 255-byte buffer, 
but each statement is responsible for one fourth of the 
record. Since 255 is one less than 64*4, the last FIELD 
statement cannot describe 192+64, but only 192+63. This 
layout is shown in figure 8.3. 
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Figure 8.3 255-Byte Buffer Description by Four FIELD Statements 

Chapter 8 Direct Access File Processing 




The fields B2$, B3$, and B4$ are dummy fields that will not be used. 
Their purpose is to reposition the location of the first fields N$(2), 
N$(3), and N$(4) further down the buffer. The four statements 
could also have been written as a single statement: 



32 AS mi 1 )? 
32 AS N$12)? 
32 AS N$(3 )» 
32 AS 


20 AS Sf(l)? 
20 AS S'U2)f 
20 AS S$<3)j 
20 AS S$(4)» 


12 AS C$(1 )» 
12 AS C$(2 ) f 
12 AS C$<3)i 
11 AS C$<4) 


The dummy field must be used to describe some buffers whose 
item-by-item descriptions would exceed the 256 byte limit on the 
length of BASIC statements. For example, suppose you wish to 
store 125 two-byte integers on each record. You have to field the 
array so that it would look like this: 

X$(l) X$(2) X$(3) X$(4) . X$(125) (unused) 

2 2 2 2 2 5 

You cannot write this as a single statement: 

500 FIELD Ir 2 AS X$( 1 2 AS X$(2)? ... 

because that statement would be more than 1000 characters long 
without any blanks! But this little program segment can do it: 

100 FOR 1=1 TO 125 

no FIELD n (I-l)^2 AS D$! 2 AS X$< I ) 

120 NEXT I 

This program segment describes the 125 different fields for 
2-byte integers in the buffer. The variable D$ is a dummy variable, 
whose sole purpose is to displace the location of the FIELDed 
integer two bytes further down the record. 


GET The GET statement transfers the information from a record on 

disk to the buffer in memory. It uses just two arguments, and one is 
optional. The form of the GET statement is: 

GET fn 
or 

GET fn, m 

The fn is a numeric expression that corresponds to a value from 1 to 
15, indicating the file number. The rn is an optional numeric 
expression that corresponds to the record number, from 1 to the last 
255-byte physical record number. If the record number is not 
specified in the GET, the next record on the file is read and its 
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LOF 


LSET and RSET 


contents are transferred to the buffer. 

Examples: 

100 GET 1? 2 

Copy the contents of the second record on File #1 into 
the corresponding buffer. 

100 GET 2f J 

Copy the Jth record to the buffer for File #2. 

100 GET Kf ItZ 

The record number is L*3 and its contents are copied to 
the buffer of File #K. 

100 GET 3, L0F(3) 

Get the last on file (LOF) record from File #3. Seethe 
discussion following. 


The LOF function returns the number of the last physical 
record of the file specified by its argument. 

Examples: 

20 IF X<L0F(1) THEN GET IfX 

If the value of X has not reached the file’s limit, read the 
Xth record. 

50 PRINT “FILE"5JF’HAS’'5LOF( J)y”RECOREiS" 


The variables that are specified in a FIELD statement are in the 
sector buffer, which is a location different from the other variables in 
the program. They are not alterable in the same way that ordinary 
string variables in memory can be modified by BASIC. For example, 
in the sequence of statements below, the record that is written back 
onto the disk is completely unaltered, because line 130 affected some 
strings in ordinary memory whose names were the same as those in 
the buffer. 

100 OPEN "R'MF'TEST" 

no FIELD 1» 10 AS X$f 20 AS Y$? 30 AS Z$ 

120 GET in 

130 S$=X$F'‘AEC"; Y$=Y$+"DEP": Z$=Z$i"GHr’ 

140 PUT in 
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PUT 


To transfer information to the buffer from memory you must 
use one of two instructions, the LSET or the RSET. These 
commands transfer strings to the fielded buffer. LSET left justifies 
a string in memory into a fielded string variable, and RSET right 
justifies a string in memory into a fielded string variable. 

Examples: 

10 FIELD 1? 5 AS Af? 6 AS 7 AS C$ 

20 LSET A$=:"ABC" 

30 J$=“XYZ‘': LSET B$=J$ 

40 LSET C$="ABC[iEFGHIJ'' 

The result is: 


ABC. .XYZ .. .ABCDEFG 
A$ B$ C$ 

where the periods represent blanks. 

Note that all strings are left justified in their fields, and that 
in the case where C$ was fielded, the string being placed in the 
buffer was truncated to the right. 


The output statement for direct access files is the PUT. Like 
the GET, it has two arguments, the file number and the physical ■ 
record number, or sector number, with the last being optional. If 
the record number is omitted, the record in the buffer corresponding 
to the file number is written at the current record number position. 
Examples: 

100 PUT 1, A 

Write a record into the fourth position of File #1. 

100 PUT Lj J-1 

Write a record into the J-1 position of File #L. 

100 PUT 5f L0F(5)+1 

Write a record on File #5 just past the end of the file. 

100 PUT 5 

Write a record into the current record position of File #5. 

100 FIELD 1? 255 AS Af 
no GET n N1 Alf=A$l GET IrP 
120 PUT IfNl LSET A$=Al$t PUT np 

Switch the contents of the Nth and Pth records of 
File#l. 
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MKI$, MKS$, 
and MKD$ 


When numeric values (constants, variables, or expressions) are 
fielded into a direct access file buffer, they must be converted to 
strings. Integer values are converted to two-byte-long strings with 
the MKI$ function, single precision values are converted to four-byte 
strings with the MKS$ function, and double precision values are 
converted to eight-byte strings with the MKD$ function. It may 
help to think of these functions as “MaKe /nteger String”, “M&K& 
Single precision String”, “MaKe Double precision String”. 

Examples: 

10 FIELD 1? 2 AS XI$? 4 AS X3$f 8 AS XD$ 

20 X$=iiKI$(X): LSET XI$=^=X$ 

30 LSET XS$=MKSf(3.27) 

40 LSET XD$=HKD$(PI#) 

Line 10 fields the File #1 buffer to store three strings of two, 
four, and eight bytes. 

Line 20 first converts the value X to a two-byte string X$, 
assuming the value of X lies between -32768 and +32767 inclusive, 
else an error would occur. Note that if X is not an integer, its 
fractional value is dropped, in effect converting X to an integer. 

Then line 20 transfers the string X$ to the two-byte field XI $. After 
this conversion to string, either the LSET or RSET instruction can be 
used, since the two-byte string fits exactly into its two-byte buffer 
space. 

T in e 30 converts the single precision value 3.27 to a four-byte 
string and transfers it directly into the file buffer. 

Line 40 converts the double precision value at PI# into an 
eight-byte string directly into the file buffer. 

If this statement were executed 

50 LSET XDf=TiKI$(5) 

the two-byte string equivalent to the integer value 5 would be 
transferred into the leftmost two bytes of the eight-byte buffer 
field called XD$. Not only would this waste space, but it would 
make the subsequent proper reconversion of XD$ to its original 
value of 5 extremely difficult. 

To show you the advantage of these three conversion functions 
in saving space, compare the storage space used in two possible 
cases: 

(1) three values, -32767, -2.71828E-14, and 
-3.141592653589793 are stored as strings of characters, 
each character representing a single digit; 

(2) the same three values are converted with the MKI$, MKS$, 
and MKD$ functions to two, four, and eight byte strings. 
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Case 1: Conversion to character strings, then storage in the 
buffer. 


10 FIELD If 6 AS !$» 12 AS S$f 18 AS D$ 

20 LSET I$=STR$(-32767) 

30 LSET S$=STR$(-2f71828E-14) 

40 LSET Ii$=STR$( ~3f 141592653589793) 

The result is: 

-32767-2.71828E-I4-3.14159263589793 

6bytes 12bytes 18bytes 

In case 1, the total amount of record space used to 
store these three values is 36 bytes. 

Case 2: Representation of values as direct copies of memory 
storage. 

10 FIELD If 2 AS I$f 4 AS S$f 8 AS D$ 

20 LSET I$=MKI$(-32767) 

30 LSET S$=HKS$(-2f71828E-14) 

40 LSET D$=HKD$(-3*141592653589793) 


The result is: 

1$ S$ D$ 

2 4 8 

In case 2, the total amount of record space used to 
store the same three variables to the same accuracy 
is just 14 bytes, a saving of more than 150%. 


CVI, CVS, and CVD When a direct access record is read into a buffer with a GET, 

the numeric values are most likely in 2-, 4-, or 8-byte string form as 
aresultofMKI$,MKS$, or MKD$ functions. These strings are not 
printable, and they are not convertible with a VAL function. The 
functions that are used to reverse the process of the MKI$, MKS$, 
and MKD$ functions are CVI, CVS, and CVD, the ConFert to 
/nteger, ConFert to 6'ingle precision, and ConFert to Double 
precision. They take two, four, and eight byte buffer fields and 
convert the strings to numeric values. 
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Examples: 


Direct Access 
File Creation 


510 FIELD 1> 2 AS N$f 8 AS X$j 4 AS A$ 

520 GET 1»L 
530 A%=Cyi(N$) 

540 B=C;US( A$) 

550 C$=CyD(X») 

560 PRINT A%fBjC# 

In the program segment above, the buffer is described as having 
three strings, N$, X$, and A$. Line 520 fills that buffer with the 
first 14 bytes of the Lth record. Then lines 530-550 produce three 
numeric values A%, B, and C# that correspond to the strings N$, A$, 
and X$. 


The steps involved in creating a direct access file are more 
involved than those used in creating sequential access files because 
the programmer is responsible for opening the file, converting values 
to strings, filling the buffer, and finally writing the record. The order 
of these steps is important, so they are listed below, in the order in 
which they must appear in the program. 

1. Open an existing file or open a new file, entering its name in 
the TRSDOS directory (in effect creating it). 

OPEN “R”,n,“filename” 

2. Describe the records of the file with the FIELD statement. 

FIELD n, lenl AS varl $, len2 AS var2$, . . . 

3. Load the buffer with just strings. 

LSETvarl$=exp 

or 

RSET varl$=exp 

4. Write the record at the desired location. 

PUT nfile, nrec 

A complete program may best serve as an example of the 
process. Suppose the problem is to create a direct access file called 
MASTER containing this information: amount owed (AM$), date 
of last purchase (PU$), date of last payment (PAS), and amount of 
last payment (AL$). Table 8.1 supplies the buffer field information. 

Since each one of these logical records is less than half the length 
(256 bytes) of each physical record, it would be economical to 
include two logical records for each physical record. To allow for 
possible growth of these records to include more fields, we can start 
the second logical record half way down at byte 129 of the 255 byte 
buffer. 

Once the file has been opened and its buffer described, the user 
can enter information starting where the file ends. 
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Length 

Name 

Description 

24 

NAS 

Customer name 

20 

SAS 

Street address 

26 

CZ$ 

City-state-zip 

12 

PH$ 

Phone No. (ARC-EXC-DDDD) 

4 

AMS 

Amount owed (single precision) 

2 

PUS 

Date of last purchase 

2 

PAS 

(integer, coded MMDDY) 

Date of last payment 

4 

ALS 

(integer, coded MMDDY) 
Amount of last payment 

94 bytes 

total 

(single precision) 


Table 8.1 Buffer Field Information 


10 'filenahe: "cspi" 

20 'function: direct access accounts receivable FILF PUItDFR 

30 ' author: JPG date: 2/80 .. 

40 CLEAR 200 : CLS: N=0 

50 ' open the file for rendoBi sccese inpui/outpul 
60 OPEN "R%lf"HASTER" 

70 ' define the use of the buffer eree 
30 FIELD 1; 24 AS NA$( 1 )» 20 AS SA$< 1 )» 

26 AS CZ$( 1)? 12 AS PH$( 1 )? 

4 AS AH$(1)? 2 AS PU$(1)? 

2 AS PA$< 1 )j 4 AS AL$( 1 ) 

90 FIELD Ij 128 AS D$j 24 AS NA$( 2)? 20 AS SA$(2)j 

26 AS CZ$(2)» 12 AS PH$<2)» 

4 AS AH$(2)» 2 AS PU$(2)y 

2 AS PA$(2)f 4 AS AL$( 2 ) 

100 GOSUB 600' deer the dieK buffer 

110 bKip the next section if the file doesn't exist yet 
120 IF L0F(1 )=0 THEN 200 

130 deterniine whet the vslue of N should be 
140 N=(L0F( 1 )-l )!t2+i: GET l?LOF(l) 

150 ' increiftent N end deer the buffer if 
160 ' the second sub-record is not blenK 
170 IF ASCCNA$( 2) >032 THEN N=N+1: GOSUB 600 
180 ' incTeisient N (lodicsl record nuirtber ) 

190 ' end find I (the sub-record pointer ) 

200 N=N-H: I=INT(N/2)t2-N-f2 

210 LINE INPUT "NAHE (TYPE 'END' TO STOP): "JN$ 

220 if thet's ell? seve this record? then end 
230 IF N$<>"END*’ THEN 290 
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740 ■' if this record hosn'l been wrilien yelf do so now 

250 IF 1=2 THEN GOSUB 500 

260 •' close UF the file? then slop 

270 close: goto 10000 

280 ■' otherwise? bedin filling the buffer with text- 
290 LSET NA$(I )=Nf 

700 I INF JNPOT "STREET ABDREBSt "?A$: LSET SA$( I )=A$ 

310 LINE INPUT "CITY-STATE-ZIPt "?Ai$: LSET CZ$(I )=A$ 

370 ! INF INPUT "PHONE NO*: "? A$: LSET PH$( I )=A$ 

330 INPUT "AHOUNT OWED"? A 1 LSET AHf (I )=HKS$( A) 

340 INPUT "HATE LAST PURCHASE (i 1 MDnY)"?A: LSET PU$< I 

350 INPUT "DATE LAST PAYMENT (MMDDY)"?A: LSET PA$(I 

360 INPUT "AHT LAST PAYMENT"?A: LSET AL$<I )=MKS$(A ) 

370 ' if 2 nci sub-record? seve thsl record? 

380 ' then deer the disK buffer end return 

390 IF 1=2 THEN GOSUB 5001 GOSUB 600 

400 ' £;o beck for enother record froHi the user 

410 print: print: print: goto 200 


)=MKI$(A) 
)=MKI$( A) 


420 seve the buffer onto uisk 

500 PUT 1 ?INT( >; N-1 )/2 )fi: RETURN 

510 ' this loop deers the buffer to Keep 

600 FOR .1=1 TO 2 

610 LSET NA$<.J)="”: LSET SAf(.J)="": LSET 
620 LSET PH$(.J)="": LSET AH$(J)="": LSET 
630 LSET PA$(.J)="": LSET ALf>(.J)="" 

640 NEXT .J: return 


thinds streidht 

CZ$<.J)="" 
FW<.J)="" 


10000 END 


Direct Access The creation of a direct access file must precede any other 

File Processing activity that deals with the file, so it is important to understand this 

technique. However, the reason for a direct access file’s existence m 
the first place is to provide a way to input any one of its records into 
memory for processing. This is done with the GET instruction, 
along with a number of other instructions and functions, just as the 
PUT instruction cannot operate alone. The usual order of execution 
for the instructions that load variables from a direct access disk 
record to various memory locations is as follows: 

1. Open the file. 

OPEN “R”, n, “filename” 

2. Describe the records of the file with a FIELD statement. 

EIELD n, lenl AS varl $, len2 AS var2$,... 

3. Rearf the record into the buffer 

GET nfile, nrec 

4. Transfer the buffer’s contents into memory, converting 
numeric variables if necessary. 


144 


Chapter 8 Direct Access File Processing 



Note that for writing a record, the order is: 

FIELD . . . 

LSET . . . = MKt$(. . .) 

PUT . .. 

where the t in MKt$ indicates type, for example S, D, or I. 

For reading a record, the order is: 

FIELD . . . 

GET . .. 

... = CVt(...) 

where the t in CVt indicates type. 

The following program fetches the Nth record from the file 
MASTER that was created in the previous program C8P1, then 
allows a change in that record, then rewrites it in updated form. 

This program exemplifies what is meant by the term “direct access”. 
Note that the user of the program enters the actual entry number 
(logical record number), and the computer determines which 
physical record to GET and where in that record the entry is located. 


10 'FILENAME! "C8P2’’ 

20 'FUNCTION! DIRECT ACCESS FILE UPDATE 

30 ' AUTHOR ! JPG DATE! 4/80 

40 CLEAR 200! CIS 

50 OPEN "R"»1»"MASTER”! GOSUB 220 

70 INPUT "LOGICAL RECORD NUMBER (0=END)"»N 

80 IF N=0 THEN CLOSE! GOTO 10000 

90 GET lrJNT(<N-l )/2)-fl 

100 I=INT(r/2 )l2-^^^ record ♦ 

110 PRINT "ENTER NEW INFO. OR /EH/ = NO CHANGE" 

120 PRINT "NAME! "JNAtd)? 

130 LINE INPUT A$! IF A$<>"" THEN LSET NA$(I )=A$ 

140 PRINT "STREET ADDRESS! "J SAf(I )5 

150 LINE INPUT A$! IF A$<>"" THEN LSET SA$(I )=A$ 

160 PRINT "CITY-STATE-ZIP! " CZ$( I )J 

170 LINE INPUT A$! IF A$<>"" THEN LSET CZ$( I )=A$ 

180 PRINT "PHONE ! ”i PH$(I)» 

190 LINE INPUT A$! IF A$<>"" THEN LSET PH$(I )=A$ 

200 PRINT! PRINT "/EN/"! LINE INPUT A$! CLS! PRINT! GOTO 70 
220 FIELD 1j 24 AS NA$( 1)? 20 AS SA$( 1 )» 

26 AS CZ$( 1 )f 12 AS PH$( 1 )» 

4 AS AM$< 1)» 2 AS PU$( 1 ), 

2 AS PA$( l)f 4 AS AL$( 1) 

230 FIELD If 128 AS D$f 24 AS NA$<2)f 20 AS SA$(2)f 

26 AS CZ$(2)f 12 AS PH$(2)f 
4 AS AH$(2)f 2 AS PU$(2)f 

2 AS PA$<2)f 4 AS AL$( 2 ) 

240 RETURN 
10000 END 
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Program C8P2 is noteworthy because it uses the LINE INPUT 
to advantage by allowing the user to enter a /EN/ (ENTER 
keystroke) as a null response if no change is necessary. This speeds 
up the response time considerably over having to enter a “NO”, a 
digit, or even a blank, as a null response. Another possible technique 
could have been used to update this file, and that is to display the 
entire record in menu format down the screen, then allowing the 


user to select a field for change. For example, the list below could 
be displayed: 

1, 

NAHE 

HARSHBARGER HERSHEL 

Jim k 

ADDRESS 

99 KNOWNOTHING ACRES 

3. 

CITY-STATE-ZIP 

SHOWHE HO 72787 

4. 

PHONE 

123-456-7890 

5> 

NO FURTHER CHANGE 


ENTER SELECTION 

BY DIGIT 

new 

The user could type the digit, immediately followed by the 
information, for example; 


2451 INANITY AVE. 
SnULLARIf CT 42179 


The screen would show the entire record again. 

1. NAME HARSHBARGER HERSHEL 

2. ADDRESS 451 INANITY AVE* 

3. CITY-STATE-ZIP DULLARD CT 42179 

4. PHONE 123-456--7890 

5. NO FURTHER CHANGE 
ENTER SELECTION BY DIGIT 

The menu could be modified by allowing the user to enter a 6, 
which would ask for a new record number to give the user an 
opportunity to change another record. 

As a last example, we include a program that might brighten a 
morning by selecting some random “Message of the Day” from a 
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file that is easy to run and expand. The idea is simple: Have the 
user come in and type 

RUN “MESSAGE” 

from BASIC. The computer randomly accesses a single record from 
a file of jokes, sayings, greetings, and potpourri of other messages. 

It displays the record on the screen, gives the user a chance to add a 
new message, then branches off to a master menu of activities for 
the day. 


10 'filename: "C8P3" 

20 'function: message file builder and accesser 

30 ' AUTHOR : JPG DATE: 4/80 

40 CLEAR 300: DEFINT A-Z: CLB 

50 OPEN “R", 1, ”MESSAGE/DAT": FIELD 1, 255 AS A$ 

60 LAST=L0F(1) 

70 IF LAST=0 THEN LSET A$="THE FUNGO BAT IS IN TOLEDO.”: 
PUT 1> 1 

80 GET 1» RND(LAST): PRINT 8 520? A$ 

90 LINE INPUT "Your turn: "?B$ 

100 IF THEN LSET A$=B$: PUT 1? LAST+i: GOTO 60 

110 close: run "menu" ' souie other Kiester nienu disFley 
10000 END 


A typical dialog with this program could go something like 
this, with the user’s entries followed by /EN/. 


RUN/EN/ 

THERE ARE 336 DIMPLES IN THE STANDARD GOLF BALL. 
DARTH VADER IS ALIUE AND HELL IN URUGUAY./EN/ 

THE FUNGO BAT IS IN TOLEDO. 

OCT 9: CABBAGE & LIME JELLO SIT DOWN DINNER./EN/ 
/EN/ 


This chapter has introduced the techniques that programmers 
use to read and write records using direct access files. The 
techniques for file management—those that deal with overall file 
design and access algorithms—will be introduced in the next section. 
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Conversational When computers did their jobs at a distance through batch 

Programming processing with punched cards, no one really cared about the 

quality or quantity of messages that the programs wrote to the 
operator at the console typewriter. After all, one of the skills that 
the operator learned was to decipher the terse and arcane jargon of 
the operating system. 

When timesharing became popular in the early 1970’s, 
programmers realized that a user at the terminal was more likely to 
enjoy the session if a dialog could be established to “humanize” the 
computer. The users would accept mild rebuke from the computer. 
Since that time programmers have developed many techniques to 
promote proper responses from the users. This chapter discusses 
some techniques that have been found effective. 



User Prompts It is up to the programmer to let the user know what a proper 

and Menus response should be. This is the reason for BASIC allowing a string 

to be printed along with the question mark with an INPUT 
statement. The prompt should also be used whenever a list of values 
or strings is to be inputted from the terminal. For example, suppose 
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a dialog has proceeded to the point shown below, with the user’s 
responses underlined: 

HOW HANY DATA VALUES ARE THERE? 15 
ENTER EACH DATA VALUE 


? 140 
? 220 
? * 


Notice that although the first response, the 15, was cued well 
with the question 

HOW HANY DATA VALUES ARE THERE? 

all the other entries are just cued once. Then the user must keep 
track of the number of entries that are typed. If a double carriage 
return is entered (the ENTER key was hit twice, or the keyboard 
suffers from bounce) that’s just too bad, because as chapter 6 
pointed out, that just enters the previous entry again. Also, notice 
that the question mark prompt is artificial; it is the result of an 
INPUT being executed, not a question being asked. 

A much better dialog would be: 

HOW HANY DATA VALUES ARE THERE? 15 
TYPE DATA VALUE 1? 140 
TYPE DATA VALUE 2? 220 


This dialog is produced with the statement: 

100 PRINT "TYPE DATA VALUE" JIM INPUT X( I) 

At least the dialog reminds the user of which value to enter. 
However, it still suffers from the question mark being printed, and 
from an accidental double /EN/ causing false input. 

The next sample dialog is made possible by using the LINE 
INPUT statement. 

HOW HANY DATA VALUES ARE THERE? 15 


TYPE 

DATA 

VALUE 

It 

140 

TYPE 

DATA 

VALUE 

2t 

220 
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If the user accidentally double strokes the /EN/, a good program 
should be able to discover the mistake. Also, since the input variable 
is a string, the program must be able to check it for illegal characters, 
because the computer won’t give any automatic second chances for 
input with a ? REDO message, as is normally the case with numeric 
input. 

Here is a subroutine that acts like the line 

100 PRINT "TYPE DATA VALUE";i»t INPUT X<I) 

except that it uses LINE INPUT and translates the string to a value 
after checking to see if it is an integer between 0 and 200 inclusive. 

800 ' input subroutine 

810 PRINT "TYPE DATA VALUE"?Il"t 

820 LINE INPUT A$1 N=LEN(A$)5 y=UAL(A$) 

830 FOR J=1 TO Nt C$=:MID$1 A$».Jj 1 ) 

840 IF C$<"0" OR C$>"9" THEN 870 
850 NEXT J 

860 IF y<=200 THEN X(I)=V1 GOTO 880 
870 PRINT "ilc*:* ERROR ON INPUT tU” 

880 RETURN 

Another useful technique that should accompany data input is 
echo checking, which involves the display of all data entered in one 
session. This may be sectioned in such a way as to simplify the 
process of updating any value that was entered in error. 

The INKEY $ is useful when the responses are limited to single 
characters, because the user is saved the trouble of pressing the 
ENTER key after every stroke. But be careful about mixing 
INKEY$, LINE INPUT, and INPUT. As the programmer, you are 
responsible for making data input and interactive dialog as easy to 
understand and use as possible, and that includes being consistent. 

A menu is the display of a list of commands with a convenient 
way to access the commands. Some examples of menus are shown 
below. 

( 1 ) 

ACCOUNTS RECEIVABLE PACKAGE! 

1. ADD ACCOUNTS 

2. DELETE ACCOUNTS 

3* POST PAYMENTS 

4* POST CHARGES 

5* AGE ACCOUNTS 
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6* BILLING RUN 


7. SUHHARY REPORTS 

ENTER THE ACTIVITY OF YOUR CHOICE BY NUHBERI 

( 2 ) 

Slslistics pBcKBSet 

1* Build dels file 
2* Sort dels file 
3* Creeie lest data file 
4« Edit dels file 
5* Chi-Seuere 

6. T-Tesl 

7. Bescrielive 

8. Correlsiion 
9f Anovs 

10* Probshililies 
11* Curvilinesr regression 
Enler choice of sclivilyt 

(3) 

G A H E S 1 

C Chess 

A Aniffisl 

B BreeKoul 

I Ivsnhoe 


152 


Chapter 9 Conversational Programming 



ERR, ERL, 

ON ERROR GOTO, 
and RESUME 


N NiBi 

E Enefiib' Below 

T Tic-Tec-Toe 

W Hunt the UuiTtPue- 

0 Othello 

R Rocket 


K KingkonS 

S Star-trek 

Enter your choice by its first letter? 


Not many versions of BASIC, even the better versions found on 
the newest microcomputers, have user-defined error trapping. This 
is one of the TRS-80 Level II BASIC’s outstanding features. In 
general terms, it allows the programmer to branch to specific lines of 
code when an error during the execution of a program. 

The ON ERROR GOTO statement enables you to branch to a 
segment of code that checks for possible program recovery in case of 
an execution time error. This statement must be executed before the 
error occurs, otherwise the computer generates the usual error 
message and terminates execution. If the line number specified is 0 
(ON ERROR GOTO 0) the error trapping feature is disabled and 
BASIC will print an error message as it usually does. 

The RESUME command returns control of the program to any 
line after an execution time error has occurred. The RESUME can 
be written in any one of three ways: 

(1) RESUME (no line number) 

or RESUME 0 returns control to the 

statement that caused the 
error. 

(2) RESUME line-no returns control to the specified 

line number. 

(3) RESUME NEXT returns control to the line 

following the one that caused 
the error. 
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Example: 

10 ON ERROR GOTO 9000 

♦ 

♦ 

50 X=Y/N 
60 PRINT ■•X="?X 

k 

¥ 

9000 ' N ifiusi not be zero — if it is? chense it 

9010 ' into B very smell number 

9020 N=lE-20 

9030 PRINT "N CHANGED FROH 0 TO lE-20" 

9040 RESLIHE 

The effect of this program is to prevent termination of the 
program’s execution due to a division by zero in line 50. A message 
is printed to indicate the change that was necessary to keep the 
program running. Notice that line 9040 could have been written as 
either of the following: 

9040 RESUHE 0 
9040 RESUHE 50 

There is a particular advantage to the RESUME or RESUME 0, 
and this is that it allows a single error handling routine, like Unes 
9000-9040 above, to manage the possible occurrence of errors in 
many places within the program. For example, the example above 
could have contained the line 

200 A(R)=2-fM/N 

If this line were executed with N==0, the error trap would 
function just as well, and the RESUME statement would return 
execution to the next line. 

The ERR and ERL functions allow the programmer to use some 
very specific error traps. ERL returns the line number in which the 
error occurred, and the ERR returns a value related to the error code. 
Both functions need no argument. 

The value that ERR returns is related to the error code this way: 

ERR/2+1 =Code value 
or 

ERR=2*Code value - 2 

Appendix F lists all of the error codes that Level II BASIC and Disk 
BASIC can generate. 

The following example shows various ways that the ERR and 
ERL functions can serve to isolate specific errors. 
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Anticipating 
User Responses 


10 ON ERROR GOTO 9000 

20 INPUT "ARRAY SIZE (ROW? COLUHN)"?RjC 

30 EiIH X(RjC) 

40 FOR 1 = 1 TO R 

50 INPUT "ENTER">Cf"UALUES FOR ROW"?! 

60 FOR .J=l TO Cl INPUT Xn,fJ): NEXT J»I 
70 PRINT "ANY VALUES TO CHANGE (OjO=NONE)" 
80 PRINT "ENTER ROUj COLUMN"5 
90 INPUT R1»C1 


9000 ' error code 7 = out of nieBtor-y 
9010 IF ERLO30 OR ERR/2+107 THEN 9050 
9020 PRINT OUT OF MEMORY Sif*" 

9030 PRINT "RERUN PROGRAM AND REDUCE ARRAY SIZE" 

9040 STOP 

9050 ' error code 10 = subscriei out of rsnde 
9060 IF ERL090 OR ERR/2-flOlO THEN 9100 
9070 PRINT SUBSCRIPT OUT OF BOUNDS Ut” 

9080 PRINT "TRY AGAIN — THAT POSITION IS NOT LEGAL" 
9090 RESUME 80 

9100 ' no idee wheiO doind on — better 
9110 ■' let BASIC hsndle the probletfi 
9120 ON ERROR GOTO 0 


It is always a pleasure to interact with a computer through a 
well thought out program, one that was written with the user in 
mind. Many users, especially novices, regard any such interaction 
with trepidation because they know the computer is a machine. 
Either through fear of doing damage or through anxiety caused by 
the unfamiliar nature of this form of communication, these users 
dread the sessions and commit blunders. Good programming practice 
includes anticipating user errors and if possible correcting them or 
certainly allowing the user a second chance. Whatever approach is 
taken, you should always try to create a friendly and informative 
dialog with the user. 

Consider these two dialogs: 


NAME? KUMQUAT? KATHY 
NAME? 14 PUNCTILIOUS PLACE 
NAME? PERSIMMON^ ALASKA 98765 
NAME? 878~787-8/bre3k/ 
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The user has realized that the computer ignored all of these 
entries. The clue was the repeated prompt NAME? which the user 
remembers (too late) should change to 

STREET? 

CITY STATE ZIP? 

PHONE? 

The user’s action of interrupting the program’s execution with a 
/BREAK/ is rather excessive, because now the program may have to 
be restarted. The dialog could have been: 


NAME? MOHERATH? POMEROY 

NAME? MOMERATH POMEROY 

STREET? 291 OUTGRABE ALLEY 

CITY STATE ZIP? BRILLIGj VERMONT 24938 

CITY STATE ZIP? BRILLIG VERMONT 24938 


At least the program was kept running, and the user realized that 
the repeated prompt meant that something was wrong with that 
entry. But how did the user know? The dialog didn’t say that 
commas weren’t allowed, yet obviously that’s what was wrong. As 
soon as commas were removed, the program proceeded nicely. 

The example above shows rat maze behavior on the part of the 
user (try, try again-when you get it right, maybe you’ll remember 
it) and sadistic behavior on the part of the programmer. After all, 
if the program was clever enough to determine that there was a 
comma in the entered data, certainly it should be clever enough to 
remove the comma, and kind enough to remind the user to omit 
commas between entries. The following dialog is nicer in all 
respects. 
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NAHE? BACILLUS? UACILLA 


Check Digit 
Calculations 


PLEASE OMIT COMMAS IN DATA INPUT 
NAME? BACILLUS VACILLA 
STREET ADDRESS? 66 SEPSIS ST 
CITY? WOUND 

STATE ZIP? WEST VIRGINIA? 49228 

NO COMMAS? PLEASE. YOU KNOW I DON‘'T LIKE THEM! 
STATE ZIP? WEST VIRGINIA 49228 
PHONE? 499-994-4949 


This dialog is polite (note all the PLEASEs) and varies even if the 
same input error is committed. 


When specific numbers are used in a record as a code and their 
accuracy is imperative, such as serial numbers, account numbers, and 
other unique identification numbers, a check digit is often employed 
to verify the number. A check digit is a single digit added to the 
code number to make that code number self-checking. It has a 
unique relation to the rest of the code number and the way it is 
calculated determines the types of errors that can be detected by it. 

The four kinds of errors that a check digit can detect are: 

(1) Transcription: A wrong number is written, such as a 1 for 
a 7 or a 5 for a 0. 

(2) Transposition: The correct numbers are written but their 
positions are reversed between neighboring columns, such 
41582 for 41852. 

(3) Double transposition: Numbers are interchanged between 
columns other than neighboring columns, such as 41582 for 
48512. 

(4) Random: A combination of two or more of the above, or 
any other error not listed. 

The use of check digits involves the computer’s initial 
calculation and storage of the digit with its corresponding code 
number as the number gets filed initially. For example, as a file of 
accounts is built, the account numbers become the access codes to 

Chapter 9 Conversational Programming 157 




to the file which will incorporate the check digits. As each new 
account is entered, its access code is generated from the account 
number followed by the calculated check digit. This access code 
becomes a permanent part of the record. When an access operation 
is performed on the file, it is done by access code, including the 
check digit. If there is any error in either the account number 
portion or the check digit portion of the access code, the user is 
warned that the code doesn’t exist, and should try again. 

Check digits are related to their code numbers through any one 
of various methods of calculation. Some methods of calculating 
check digits are rather poor, detecting only some of the possible 
errors that occur. We will show you one of the best, and for that 
reason the most popular: the modulus 11 procedure. The method 
of calculation is the same as that which is used for detection. That 
is, when an access code is checked, its check digit is recalculated and 
compared to the one that was originally attached. If it is different, 
the user is warned of an error. 

Modulus Eleven Check Digit Calculation Method 

1. Multiply each digit in turn with its corresponding weight. 
The weight is simply the digit’s position in the code number 
from right to left, plus one. For example, for the code 
32604: 

3*6 2*5 6*4 0*3 4*2 
18 10 24 0 8 

2. Add the resultant products. 

18+10 + 24 + 0 + 8 = 60 

3. Divide the sum by the modulus (in this method it is 11) and 
keep the remainder. 60 / 11 = 5 with a remainder of 5. 

4. Subtract the remainder from the modulus, and the result is 
check digit. 11-5 = 6. If the remainder is 0 the check digit 
is 0. If the remainder is 1, the check digit is 1. If the 
remainder is 10, that account number must be rejected. 

Therefore the access code is 326046. 

Examples: 

1. Code number 421865 

4*7+2*6+l*5+8*4+6*3+5*2 

28+12+5+18+10=105 

105/11=9, remainder=6 

11-6=5 

Access code=4218655 

2. Code number 2493 

2*5+4*4+9*3+3*2=59 

59/11=5, remainder 4 

11-4=7 

Access code=24937 
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3. Code number 2653 
2*5+6*4+5*3+3*2 
10+24+15+6=55 
55/11=5, remainder 0 

11-0=11: special case; checkdigit=0 
Access code=26530 

4. Code number 4653 
4*5+6*4+5*3+3*2=65 
65/11=5, remainder 10 

Reject this account number. Do not allow it in the system, 
and choose the next code number, 4654. It’s check digit is 
0, making the access code 46540. 

5. The access code that the user gave is 26214. Is this a proper 
access code? (Does the check digit of 4 correspond to that 
calculated for code number 2621?) 

2*5+6*4+2*3+1*2=42 

42/11=3, remainder 9 
11-9=2 

The access code 26214 is improper since 2621 has check digit 2 
not 4. An error message should be issued to the user. 

Instead of recalculating the check digit, the computer program 
that verifies the accuracy of the input access code can multiply all 
digits of the access code by their weights, using a weight of 1 for the 
check digit itself. When the sum of all of these products is divided by 

the modulus, the result should be zero. 

The modulus 11 check digit calculation procedure can detect 
^1 of the user’s transcription and transposition errors, which account 
IZf. commit. The method also detects 

errors. Thus the modulus 11 method can detect 
99.57o of all errors. If even more accuracy is needed, the method 
can be modified by using prime numbers larger than 11 for a 
modulus. For example, the modulus 37 method detects 99.987% of 
all user errors. 

Check digit calculations impose a penalty in calculation time, 
but that penalty is not severe when the application involves a single 
user on the computer. 

The following program attaches a check digit to a six digit 
account number. 
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Praise and 
Chastisement 


10 

20 

Vo 

40 


'FILENAME! 
•'FUNCTION! 
' AUTHOR ! 


"C9P1" 

CHECK DIGIT CALCULATOR 
JPG I*ATE! 


^80 


60 

70 

80 

90 

100 

110 


PRINT 
PRINT 
PRINT! 
S=0 ' 

' the 


‘To 
' en 


slor? press /breaK/? otherwise enter" 
Bccounl nuBiber (any nuniber of digits)" 
LINE INPUT "Plesse enter the number! '’»N$ 
reset the subi to zero 
following is s Loop for adding the values 
multiplying the Ith digit by its weight 
while Keeping a running total of the sums so 


snd 


f ar 


120 FOR 1=1 TO LEN(N$) 

130 S=S-!-VAL(MID$(N$fIfl ))*(LEN(N$)-f2“I) 
140 NEXT 

150 ' get modulo eleven from t-ne sum 


160 H=S-INT<S/11)«11 

170 sdd the proper checK didii to rfUBiber 
180 IF H>0 THEN N$=N$-1RIGHT$( STRf( 11~H )? 1 ) 

ELSE N$=N$i"0" 

190 ' if acc-t. * is good? print it? otherwise 

200 ' print reject message 

210 IF M=10 THEN PRINT "Acct, # rejected" 

ELSE PRINT "Acct. =1 is "?Nf 


10000 END 


One of the most irritating forms of dialog is that which is made 
up of uniform words of praise. Consider this dialog: 

WHAT IS 242? JOHNNY? 4 
GOOD! WHAT IS 5+7? JOHNNY? 12 
GOOD! WHAT IS 6+19? JOHNNY? 25 
GOOD! 

GOOD! 


Johnny is by now well beyond reading the computer’s dialog, and 
merely looks at the digits to make the proper response. If that s 
the case, the program should do away with the words entaely. 

Praise does work, though, and if handled properly it can act a 
strong stimulus for proper user behavior whether the user is a child 
being drilled in arithmetic skills, a bookkeeper posting payments, or 
an executive studying stock portfolios. The secret of using praise 
with the computer is to randomize it. Consider this dialog. 
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WHAT IS 5+7f JOHNNY? 12 
GOOD WORK. 

WHAT ABOUT 8+17? JOHNNY? 23 

YOU HISSED THAT ONE. BETTER LUCK NEXT TIME. 

CAN YOU COMPUTE 8+17? 25 

SUPER! 

TRY ADDING 22+17? 39 
MERY GOOD! 


These kinds of messages are fun to create in a program, fun for 
the user to receive, and significantly improve the user’s performance 
in whatever task is being tried. The technique relies on generating 
entire sentences from randomly chosen phrases in two phrase pools: 
one pool is for praise and the other for chastisement, or scolding. 
The following program illustrates the technique. 


10 

20 

30 

40 

50 

60 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 


'C9P2'' 

ILLUSTRATE 

JPG 


PRAISE AND SCOLDING 
DATE! 6/80 


FILENAME.* 

'FUNCTION! 

' AUTHOR I 
CLEAR 1000 

R=20 ' nuabers will iniiielly be between 1 end 20 
CLS! INPUT "Whet is your neBie*'?N$ 

Y=RND(R)t S=X+Y 'Gel the rsndoa nuabers 
PRINT "Ubet is"?X?"+“?Y?"? "?N$? 

INPUT SI 

IF SIOS THEN GOSUB 150! GOTO 90 

ELSE R=:R+1! GOSUB 120! GOTO 80 
FOR 1=1 TO 10! READ Y$! NEXT I 
GOSUB 150! RETURN 

subroutine to print the aesseSes 
GOSUB 170! A$=X$! GOSUB 170! B$=X$ 

PRINT A$+”? "+B$I RESTORE! RETURN 
J=RND(5)! FOR 1=1 TO J! READ X$! NEXT I 

IF J<5 THEN FOR I=J+1 TO 5! READ Y$t NEXT I 
RETURN 


200 DATA You aissed? Bed news? Udh? Too bed? Yuch? Klutz' 
turkey!? buffoon!? dolt!, Good? Excellent 

r*;* Greet? You Sot it? You're right 

i30 DATm Just fine? Keep it up? Super 
10000 END 
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Informing the User 
During Processing 
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Communication with the user is more than just asking for data 
and giving answers. It also involves informing the user about how to 
perform a task, such as running a program or managing a file, and 
informing the user that something is happening during some process 

in a program’s execution. . i.- ^ t,- . 

Suppose, for instance, the dialog proceeds in this lashion. 

Do you wsn f to * 

(1) sort (2) updste (3) renenie b file? 1 
Whet is the nBHie of the file? MAYACCTS 
(A pause while the file is opened) 


On whsi 

Key do you wi' 

dh to 

sor t? 

(1) 

fiBilie 



(2) 

Bccounl number 


(3) 

cidie of looi 

serv 

ice 

(4) 

BHiOUnt PBOi 

due 


Enter your choice by 

disii 

* 9 

Ou i-FU i 

on (1) screenf 

(2) 

printer 


(A very long pause while the file is being sorted. There may 
be much hissing and clacking of drives, to the possible dismay 
of the user) 

Done. 

Consider the concern of the novice user during the sorting process. 

Is there something wrong because of all the noise? Why isn t 
anything happening? Is it sorting the file, and creating a new one, as 
it should be? How long does this go on? Should I turn off the 
computer before it breaks? 

The programmer can do a lot to ease the user s anxiety by 
printing simple intermediate messages during processing to keep the 
user informed about what is going on. The last program in chapter 7 
shows how to use a simple PRINT statement during a sort to let the 
user know how it is progressing. When a sort takes hours, as ^ 
if the number of elements to be sorted is in the thousands, a rKIN 1 
strategically placed within the sort can help the user greatly. It can 
tell: 

(1) Whether the sort is working. 
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(2) Approximately how long it takes. 

(3) What stage of the sort is being performed. 

i^other use of the process-time message is to keep the user 
from doing something during critical times, or to inform the user of 
abnomal events. For example, a process may turn the disk drive on 
and on with long pauses when internal processing takes over and the 
drive IS off. The user should be given some message, such as: 

oTILL. USING THE DISK DRTUE! ttt- 
W- no NOT OPEN THE DRIVE DOOR! 

Another case in point is in the instance when one drive gets full, the 
program senses it, and opens a new file on another drive. The user 
may be caught by surprise, and absolutely mustn’t disturb the 
process. A helpful message might be; 

nuN'l WORRY ABOUT ACTIVITY ON OTHER DRIVES► 


YOUR FILE WAS TOO LARGE FOR ONE DRIVE. 

DO NOT OPEN ANY DRIVE DOORS Ut 

Such messages as these often spell the difference between a 
happy user who is pleased to work with the system, and an anxious 
user who can t wait to get away from the machine. 


Obviously, the programmer must be aware of the user’s point of 
view when the program is still in its initial stages of composition. 

^is technique of user-proofing a program is not trivial. It requires 
both the knowledge of programming techniques and considerable 
imagination in trying to anticipate user responses. 

The technique that follows in the next chapter is an aid to the 
programmer rather than to the user. As you will see, it involves the 
overall design of programs to make them more readable and easier 
to alter. 
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Structured The number of programmers that use BASIC will increase 

Programming greatly during the 1980s, primarily due to the rising popularity and 

falling price of microcomputers. Many of these new programmers 
will commit the same fundamental errors in technique that were 
committed ten and twenty years ago by today’s professionals. 

Unless these new ranks of programmers learn the proper ways of 
programming, their level of frustration will increase in proportion 
to their level of productivity. 

By the late 1960’s the speed and memory capacity of computers 
had increased to such a point that it was economically unwise for a 
programmer to “fine-tune” his or her product to run a little bit faster 
or to fit into a slightly smaller area of memory. The programmer’s 
time was worth more than any possible gain in machine time or 
memory use. Aside from this economic consideration, the number 
of programmers was rising, and the ability to communicate the 
contents of a program to new members of the staff became a very 
valuable asset. 

Programs got more complex as they dealt with more file storage 
hardware. With some of these programs, as their complexity grew, 
their reliability dwindled, sometimes to the point of complete failure. 
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Program Planning 


Some of these aging and dying programs represented large 
investments in time and money, yet because of their great 
complexity, their slightest alteration risked severe and unexpected 
complications. 

During the 1970’s, programmers developed various techniques 
to design their product from the beginning as a set of independent 
modules, each of which could be altered without affecting any other. 
Also, new and independent modules could be added to the program 
without the risk of creating a bug in a previously tested and 
debugged module. 

These techniques yielded three immediate benefits: 

(1) Programmer productivity increased due to a better under¬ 
standing of the fundamental problems that were being 
solved. 

(2) Program debugging and testing was simplified. A new 
module could be tested independently of all others. 

(3) Program maintenance was simphfied as a result of the ease 
of module addition, modification, and deletion. 

These three factors made programs more flexible and extended 
their useful life. As the environment and the computer hardware 
changed, these modular programs had a much better chance of 
surviving and being productive than their predecessors. 


Students in most introductory programming classes are taught 
that a program is written in five stages: 

(1) Understand the problem. 

(2) Formulate and flow chart an algorithm, or method, for its 
solution. 

(3) Code the program. 

(4) Test it and debug it. 

(5) Document the program and its output. 

The first stage is intuitively obvious. How can any problem be 
solved without a thorough understanding of its nature? A 
programmer usually understands the problem when he or she 
understands the four major phases of input, processing, storage, and 
output, clearly. This overall view usually determines the format of 
most of the program’s outputs. 

The second stage normally involves a rather detailed desi^ of 
all records: input, transaction, storage, and output. The algorithm 
is usually flowcharted using some variation of the standard ANSI 
(American National Standards Institute) symbols. 

The third and fourth stages are often performed simultaneously. 
The key ingredient in the testing phase is imagination. The 
programmer must be able to anticipate as many of the user’s 
responses as possible. This phase was discussed in some detail in the 
last chapter. 

Documentation is the fifth phase, and this subject is covered in 
the next chapter. 
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Phrase Flowcharts 


ANSI Flowcharts 


In this chapter we will consider program planning to include 
both the first and the second phase. 


When one thinks of flow charts, what usually comes to mind is 
a map-like drawing full of variously shaped symbols and arrows. This 
is not necessarily the case. A flowchart is a step-by-step 
representation of a problem’s method of solution (an algorithm), and 
it is often just a set of English phrases and notes in some semblance 
of the order of solution. This is a phrase flowchart. It is easy to 
understand, and it is a more natural product of the programmer than 
a symbolic flowchart, particularly during the initial stages of the 
program s creation. As an example of a phrase flowchart, we have 
included here the original phrase flowchart for the Sort-Merge 
program in chapter 7. 

(1) Create 4 files, till with random alphanumeric data, 

50 records with 30 characters per record, 

list them. 

(2) Sort each file. 

Repeat the next four steps four times. 

(a) Load file into memory. 

(b) Sort. 

(c) Close: open. 

(d) Write out. 

(3) Merge. , 

(a) Read 1 record into each of four buffers. 

Start each of 4 counters at 1. 

(b) Scan top of stacks, write out smallest to 1 file, 
read new one, add 1 to proper counter. 

The usual approach to making phrase flowcharts is to state in 
phrase form what is to be done in a series of steps, and to number 
each step. The final product vaguely resembles a set of broadly 
worded instructions. Its chief advantages are simplicity and 
familiarity to the program’s creator. 


Since the 1960’s, the computer industry has made efforts to 
establish some standards that would cover the wide variety of 
products of the technology. The organization that has had the most 
impact has been the American National Standards Institute (ANSI). 
This body has established industry-wide standards for computer 
languages, methods and codes for machine-to-machine 
communication, and even the symbols that should be used for 
flowcharting. 

ANSI symbolic flowcharts are what comes to mind when 
flowcharts are mentioned. They are symbolic; that is, they are made 
up of connected diagrams that represent various segments and 
processes of the program. The five basic ANSI flowchart symbols 
are shown in figure 10.1. These five symbols are interconnected with 
straight lines. The chart is read from top down and to the right 

Chapter 10 Structured Programming 167 


r 



Symbol 


Name 


Meaning 


Terminal Start or end of a 

sequence of operations 


Input/Output I/O operation 


Process Any processing 

function 


Decision Any kind of branching 

operation 


Connector Connection between 

parts of a flowchart 


Figure 10.1 Basic ANSI Flowchart Symbols 

unless an arrow indicates a different direction of logic flow. 

Consider the problem of inputting an all-digit answer with the 
INKEY$ function, as programmed in chapter 6. First, we will show 
you a phrase flowchart of the problem’s solution, then an ANSI 
symbolic flowchart. 
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Phrase Flowchart for Digit Input Subroutine 

(1) Null the input string. 

(2) Input a character with INKEY$. 

(a) Return if /EN/ stroke. 

(b) Print error message if out of range, 
then get new character (step 2). 

(c) Add to input string if OK, then get 
new character (step 2). 


Symbolic Flowchart for Digit Input Subroutine 
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Symbolic flowcharts can be very specific; that is, every symbol 
can represent a single instruction, such as the flowchart above. Or 
they can be very broad; that is, every symbol represents a large set of 
instructions. The following example is a broad symbolic flowchart. 


Symbolic Flowchart for a Statistics Package 
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Programming 

Structures 


All programs and their included parts can be broken down into 
one or more of three basic structures. 

1. The Sequence Structure consists of a set of imperative 
program statements that are executed in sequence. For 
example, this program segment is a sequence structure. 

f 

200 OPEN ”R", 1, “RANKEN" 

210 FIELD 1, 255 AS X$ 

220 LAST=L0F<1) 

230 GET 1, LAST 


2. The Selection Structure, or the IF-THEN-ELSE Structure, 
represents a choice between two and only two actions based' 
on a condition. If the condition is true, one action is 
performed; if it is false, the other action is performed. 
Consider the following sequence of code as an example. 


100 IF A<NUfi THEN SUH-SUH-fX! K=K+1J 
S2=S2FXfX: GOTO 50 
ELSE S3=:SUH^SUH 

3. The Iteration Structure, or FOR-NEXT Structure, provides 
for executing a function as long as a condition is true. When 
the condition is no longer true, the program performs the 
next function in sequence. A common alternate form of the 
iteration structure allows the function to be executed until 
the condition becomes true. In BASIC the FOR-NEXT is 
the standard iteration structure, in some cases the 
IF-THEN-GOSUB can act as an alternate form. Here are 
some examples of the logic of iteration structures. 


100 FOR 1=1 TO 100 STEP 5 


150 NEXT I 
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200 IF A THEN GQSUB 500t GOTO 200 


* 


300 IF X<Y THEN GOSUB 500t GOTO 300 

{> 

{' 


200 IF NOT A THEN GOSUB 500t GOTO 200 




300 IF X=Y THEN GOSUB 500? GOTO 300 


t- 

Figure 10.2 shows the symbolic flowcharts for each of these 
structures and will help clarify the differences in their actions. 
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Sequence Structure 


El^mY ^ 




k 



& 



PROCESS 

C 




6)CIT ^ 


Selection Structure 



Iteration Structure 



Figure 10.2 Symbolic Flowcharts of Programming Structures 
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GOTO-Less 

Programming 


The term GOTO—less programming has been associated with 
Edsger Dijkstra of the University of Eindhoven, who in 1965 
suggested that any program could be written without using GOlO ^ 
statements. He said that GOTOs in a program decreased a program s 
clarity and one’s ability to test and maintain it. 

In practice the GOTO is permitted in structured programs so 
long as it is used as an exit from a module. When BASIC allows 
multiple statements per line, the form: 

Inl IF condition THEN GOSUB ln2 : GOTO Ini 

is well suited as an iteration structure, even though it contains a 
GOTO. Many texts would have you overcomplicate code in order 
to maintain conformity to a standard that was established for 
COBOL. We feel that BASIC’s concise coding can clarify rather 
than complicate the logic of a program. 

The practice that should be avoided in BASIC is the use of 
GOTOs followed by line numbers to the point where the reader 
loses the program’s continuity. If you need to get back to a previous 
statement, you might find a way to GOSUB to the set of statements 
above the GOTO, and replace it with a RETURN. For example, 
consider this little program that calculates the mean and standard 
deviation of a sample. 


10 

20 


"7 A 



FILENAME! 

FUNCTION! 


AUTHOR : 

C:-h t 


"ClOr1" 
BEHONSTRATION 
Jr 0 
S2=0 


OF POOR STRUCTURE 
DATE! 9/79 


50 PRINT "NUMBER"! INPUT 
60 IF XOO THEN 80 
70 GOTO 90 

80 I = IF11 S=SFX! S2=S2mX! 
90 M==S/I! PRINT "MEAN="»M 
100 PRINT "STD. DEV.=’GSQR(( 


X 


GOTO 50 

S2--8*M )/(I-l)) 


no INPUT "ANOTHER SAMPLE" jA$ 
120 IF A$<>"YES" THEN 10000 


130 GOTO 40 


10000 END 


This program is a trivial example that is quite easy to follow, 
even if it has been written with as many GOTOs as possible. The 
first and most obvious step is to get rid of all simple GOTOs 
immediately after the IPs. The following program is an 
improvement. 
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un in 


10 

20 

30 


ILENAHEl 
UNCTION! 
AUTHOR ! 


40 1=1! S=0! S2=0 
50 PRINT "NUMBER"?I?! 

60 IF XOO THEN 1 = 141! 

ELSE 1=1-1! 

PRINT 

70 INPUT "ANOTHER SAMPLE"JA$ 
80 IF A$="YES" THEN 40 
10000 END 


"C10P2" 

BETTER STRUCTURE THAN PREVIOUS PROGRAM 
■JPG DATE! 9/79 


INPUT X 

S=S+X! S2=S2tXIX! GOTO 50 
M=S/I! PRINT "MEAN="?M! 

"STDf DEVf="?SQR((S2-SfM )/( I- 


■1 )) 


This is a much better program. It is clearer, even though its 
selection structures, the IF-THEN-ELSE statements, are rather 
complex. 

Now^ consider the following program. Its single GOTO is a 
part of the UNTIL iteration structure. The only other references 
to line numbers are in the GOSUBs. Subroutine 60 is clearly the 
main subroutine, and subroutines 200, 300, and 400 perform the 
initialization, input, final calculations, and print-out functions. 


p 'FILENAME! "C1()P3" 

20 'TUNC I ION! SAME PROGRAM WITH GOOD STRUCTURE 
30 ' AUIHOR ! JPG DATE! 9/79 

40 INPUT "DO YOU WANT STATISTICS (YEs" OR N0)"?A$ 
50 IF A$="N0" THEN STOP 


60 G03UB 200 
70 GOSUB 300 


ELSE GOSUB 60! GOTO 40 

initislize veriebles 
iriFul dslB 


cBlculele Hieen end sldf dev* 
print std* dev* end meen 


80 GOSUB 400 
90 GOSUB 500 
100 RETURN 

200 S=0! S2=0! M=0! RETURN ' iniiielizind routine 
subroutine for dele input 
300 INPUT "HOW MANY OBSERVATIONS"IN 
310 FOR 1=1 TO N 

PRINT "TYPE VALUE N0."Mf! INPUT X 


320 
330 
340 NEXT I 
350 RETURN 


S=S+X! S2=:S2-fX$X 


360 ' subroutine for celcuietions 
400 M=S/N: SD=SQR( < S2-S)KH )/(N-1 ))! RETURN 

410 ' subroutine to print results 
00 PRINT "MEAN=:"»M 

10 PRINT "STD* DEV*="5SD 
20 RETURN 
10000 END 
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Top-down 

Programming 


At this point you may be wondering what advantage this 
program could possibly have over its simpler-looking predecessors. 
The key is in its ease of modification and growth potential, bor 
example, if you wanted to calculate the range of the sample, you 
could alter the input subroutine to keep track of the lowest-seen and 
highest-seen values, and do so knowing that whatever you do there 
cannot affect the other modules. If you wanted to add a new 
feature, you could just add a new subroutine. 


The entire subject of GOTO-less programming is but a facet of 
of the area of structured programming. However, it leads naturally 
into the area of program design, top-down programming, and 
modular programming. It is the segmentation of the logic o a 

program into its parts. _ 

Top-down programming involves the overall design ot a 
program into a series of modules arranged in a hierarchical order. 
That is, the primary objective of the prograin is incorporated m o 
its first module or section, the secondary objectives are next, and me 
subordinate objectives are below those. The previous program is an 
example of top-down programming. There is a clearly identifiable 
main module and a number of subordinate modules, the subroutmes. 

A good way to visualize the design of a structured program is 
with a hierarchy chart or structure chart. This is a structure chart of 
program Cl OPS. 

Structure Chart for Program Cl OPS 
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The structure chart shows all of the modules in the program and 
the relationships between these modules. Input and output functions 
are distinguished from processing functions. It is easily generated 
before any actual coding is done. In contrast to the symbolic 
flowchart, which is more of a representation of an existing program 
the structure chart serves best as a design aid. 

A major advantage of the structure chart over a programmer’s 
informal phrase flow chart as a program design tool is the structure 
chart s capacity for modification and growth. Let us consider the 
previous statistics program as a kernel for a much larger system of 
programs for statistical analysis. Suppose you want to add these 
features: 

1. Input of data by groups. 

2. Each ele^nent of a group can have more than one 
observation. 

The new structure chart could be: 



This major change was incorporated by adding another level to 
the existing structure chart. This added level describes the new 
modules that will be necessary to implement the changes. The 
programmer could write new subroutines, numbered in the lOOO’s 
with no more change to the existing modules than some new 
GOSUBs in the level 1 modules. 

The program planning and design aids we have shown in this 
chapter can greatly increase programmer productivity and enhance 
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program clarity. You can rewrite existing programs m a more 
structured style, and in so doing, very likely breathe new life into 
those programs. The chapter that follows will show you howYo 
prepare associated documentation with your programs. It is the ^ 
documentation that usually spells the difference between an easily 
usable program and marketable program, and one that no matter 
how fine it is technically, just doesn’t seem to be popular with its 


users. 
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Documentation 


Documentation is often considered to be the programmer’s 
bane and burden, the cross to bear for writing good programs. It is 
unfortunate that this attitude exists, because it tends to reduce the 
amount of documentation that needs to be created in many 
programs. 

In fact, documentation should be treated as the chef treats his 
or her pots, pans, and cookbooks. Accumulating the proper 
ingredients is only part of the preparation of a fine dish, just as 
coding the proper algorithms is only part of the production of a 
pod program. A program must display its author’s pride and skill 
in both its execution and its documentation. 

In this chapter, we will discuss a wide variety of techniques that 
fall into either one of two broad categories; internal or external 
documentation. 


Internal 

Documentation 


As a class of techniques, internal documentation includes all 
methods of explaining a program’s workings from within the 
program itself. You will see that it means more than a liberal dose 
of REM statements, although that is an important consideration. 
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Program Comments 


The REM statement provides a method for the programmer to 
write a comment about a statement or program structure without 
altering the program’s execution. The first few lines of any sizeable 
program should include the following information in the form of 

1*61X13-1*1^8 * 

1 Program ID-file name and brief statement of function. 

2. Author ID-name and date of program creation. 

3. Revision ID-name, date, and number of revision. 

In many microcomputers, including the TRS-80, REM 

statements suffer the disadvantage of occupying valuable memory 
space. Many programmers keep two versions of their working 
programs: One is rich with comments and highly readable, and it is 
generally kept on file; the other is stripped of all REM statements, 
and used for execution only. When a change must be made in the 
program, the programmer lists the well documented program as an 
aid in locating the area of change. The appropriate changes are made 
in both programs, and when the undocumented version runs properly, 

the documented version is restored on file. 

REM statements come in a variety of forms. The most familiar 
one is the single line that is dedicated solely to a remark. 


10 REM PROGRAM TO COUNT OIRUSES 

♦ 

¥ 

500 ' SUBROUTINE TO CONCERT SPEED OF LIGHT 

510 ' TO FURLONGS PER FORTNIGHT 


3000 ' REMOVE UNWANTED RECORDS 


Other REMs appear as last statements in multistatement lines. 


50 A=AFll REM COUNT THIS VIRUS 

¥ 

¥ 

550 V=2$X-fR ' CALCULATE VENOUS FLOW 


2250 X(I )=X( I)-N ' REDUCE VOLUME CALCULATED 
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Windowboxes 


A word of caution concerning remarks in a multistatement line: 
Take great care to avoid inserting a remark between two statements 
on the same line. It is easy to do this in Level 11 BASIC because the 
line’s length can be up to 255 bytes, and the down-arrow (I) 
provides a neat way to return the carriage and provide a line-feed 
without generating the /EN/ (hex OD) character that marks the end 
of the line. But a REM between two statements on the same line 
makes all statements after the remark a part of the remark. For 
example, don’t do this: 

10 X=X+11 ' INCREHENT Xl Y=Y+i: ' INCREMENT Y 

The statement Y=Y+1 is seen by BASIC as a part of the remark 
following the statement 

X=Xil 

Right-justified or indented REM statements are often more 
easily distinguishable from the active BASIC statements. Consider 
the two following examples: 

10 DIM Xa00)l CIS 

20 INPUT OF GROUPS"rNG ' INPUT THE LIMITING 

30 INPUT "GROUP SIZE"?N ' SIZES FOR THE SAMPLE 




500 

/ 


510 

FOR 1=1 

TO NG 

520 

/ 


530 

s( I )=o: 

S2{ I )=0 


SUBROUTINE FOR ANOVA CALCULATIONS 
TREAT EACH GROUP SEPARATELY 


If your printer prints lower case as well as upper case 
characters, you can use lower case for remarks. This technique is 
used in many examples in this book. 


A very distinctive form for remarks is called the windowbox. 
This form visually isolates titles, and is particularly effective for 
major program headings and structure and subroutine titles. 

10 ' tttttttttttttttttttttttttttttt 

20 ' !j! FILE EDITING t 

30 ' tttttttttttttttttttttttttttttt 

40 
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Blank Lines and 
Text Formatting 


1000 ' ---— 

1010 ' SORT THE ARRAY 

1020 ' - 

1030 ' 


2000 ' 

t 

2010 ' 

jr|% 

2020 ' 


2030 ' 

tttut INPUT tutu 

2040 ' 

tutututtu 

2050 ' 

uttttt 

2060 ' 

2070 •' 

t 


1 ' 


2 ' % G-E-N-E-A-L-O-G-Y ^ 

Z ' t A MANAGEHENT SYSTEH FOR RECORDS * 
4 ' t OF ANCESTRY AND KIN % 

Z ' % BY t 

6 ' t ALICE X* HOLEY % 

7 ' t 7 / 4/76 t 


8 ' ttttttttttttttttttttmtttttttttttttttt 

9 / 


A lot of information about a program’s structure and logic can 
be conveyed without words. In some cases, the insertion of a blank 
line (actually there’s an apostrophe as a first character) is enough to 
demarcate one program structure from another. In other instances, 
a programmer can tell a lot about the program’s actions by indenting 
certain lines. 

Examples: 

1000 ' ttttttttttttttttt 
1010 ' t FIELD RECORDS t 
1020 ' ttWttttttW-ttt 
1030 ' 

1040 FIELD If 255 AS Xf 
1050 ' 

1060 FIELD 2f 4 AS Fl$» 4 AS F2$f 4 AS F3$f 
4 AS F4$> 4 AS F5$f 4 AS F6$f 
4 AS m 

1070 ' 
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Grouped 
Line Numbers 


External 

Documentation 


Structure Charts 


100 FOR 1=1 TO NG ' DO BY GROUPS 

110 FOR .J=l TO N(I) ' DO BY OBJECTS 

120 - 

130 - 

140 - 

150 NEXT J 

160 - 

170 - 

180 NEXT I 


50 IF P<Q THEN X=X-M: L=SQR< H ) 
ELSE J( I )=y 


300 IF A<B THEN IF B<C THEN Q=V 

ELSE Z=U 

ELSE X=V 

One of the most obvious signs of a programmer’s attention to 
the clarity of the program’s logic is the proper selection of line 
numbers to be grouped within structures. For example, during the 
initial stages of program design you should try to group the Level 0 
structure, the main or driver portion of the program, within lines 1 
to 999. Then you can reserve blocks of line numbers for various 
other structures: Lines numbered 1000 to 1999 for the first module 
of Level 1, 2000 to 2999 for the second module, and so on. Then 
the second level can be blocked into the ten thousands. This makes 
any modification to the program fairly simple. 

A number of commercially available line renumbering programs 
can be very useful for grouping line numbers. It is possible to 
selectively renumber lines past a certain value with these programs. 
This allows you to modify one structure at a time, starting with a 
low level and working up. 


The first documentation of a program is a set of written notes, 
possibly a phrase flowchart. Its purpose is to organize on paper 
some of the structural requirements of a program. This should be 
replaced immediately with a general structure chart for the program. 
The structure chart can be modified as the program is composed and 
tested, but its overall design should remain essentially constant. 
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Symbolic 

Flowcharts 


Run Books 


Help Files 


During the coding and testing phase of a program, it is often 
necessary to unravel the intricacies of an algorithm, or to create a 
new symbolic flowchart as the algorithm is coded. This form of 
external documentation is useful during coding to record visually the 
logic of a specific module, so that it can be modified without 
destroying its logic. Sometimes the lucky programmer has symbolic 
flowcharts already prepared from some other source. If not, the 
algorithm may be coded first from a phrase flowchart; then the 
symbolic flowchart is drawn to record the algorithm in some 
language-free form for future use. 


Once the program or system of programs is written and tested, 
it needs to be released to the user, who is most often someone 
totally unfamiliar with the code itself. The programmer must 
inform the user how to run the program, how to answer its questions, 
and what to do in case of specific anticipated failures. Some of these 
directions can be included in user prompts within the program. 

Some overall guiding directions can be given in a set of PRINT 
statements when the program begins to execute. But the most 
important directions, those that tell the user how to load the program 
and its ancillary files and how to get it running, cannot have internal 
directions. They must be written into an external document called a 
run book, or user manual. Run books range in size from a 
three-by-five printed card that can be pasted onto an obvious place 
near the computer to a full set of books that detail the programs’ 
actions for an entire system. 

Run books usually start with a section that tells the purpose of 
the program, followed with a section written in cookbook fashion on 
how to start execution of the program. Then various other sections 
can be included, such as how each module works, what the range of 
answers should be for certain inquiries, and what to do in case of a 
program or hardware failure. Programs that are produced for 
commercial purposes are often sold primarily on the basis of the 
quality of their run books. 


Aside from charts and run books, there exists a third kind of 
external documentation which has gained increasing acceptance as 
timesharing systems have become more popular. This form of 
documentation is called the help file. A help file is a set of records 
accessible from within a program which gives information about a 
certain module of a system or porgram. This file is usually opened 
on demand from the user with a response of “HELP” instead of the 
normal response to a program’s question. For example, suppose the 
user is presented with this menu and doesn’t understand it. 
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WORD PROCESSING SYSTEH 



GENERATE 

RAW 

DOCLIHENT FILE 

2. 

EDIT 

RAW 

DOCUMENT FILE 

3* 

LIST 

RAW 

DOCUMENT FILE 

4» 

RUN 

FINAL 

DOCUMENT GENERATOR 

5* 

EDIT 

FINAL 

DOCUMENT 


PRODUCE N 

FINAL 

DOCUMENTS 

TYPE 

DIGIT OR 

'HELP' 

OR 'HELP N'J 


If the user is not sure of the overall purpose and actions of the 
system, entry of the word “HELP” as an answer opens a file of text 
that is displayed on the screen. If there is doubt about how to run 
any one of the six listed modules, the user can type the word HELP 
immediately followed by the digit corresponding to the desired 
activity. For example, the response HELP 5 would open a file of 
text that explains how to list a raw document file. 

Documentation and program structuring techniques, as discussed 
in this and previous chapters, represent an important aspect of the 
progr^mer’s craft. Equally important is a working knowledge of the 
techniques that a programmer uses to structure and manage the 
various files that the programs access. 
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File Manipulation 
Techniques 


Building 


Programs that deal with files must be thought out very carefully 
because they use data that is stored in some fairly permanent 
fashion. The files are not just an extension of the computer’s 
high-speed memory. They provide a method of computer-accessible 
storage for masses of data that sometimes represent months or years 
of accumulated work. 

The records in a computerized file are managed much as records 
in a manually maintained file in some office’s steel cabinet. This 
chapter will discuss some of the various techniques of building, 
accessing, modifying, deleting, and sorting sequential and direct 
access files. 


The first phase in any dealings with, computerized files is 
building them. They have to exist on the disk before they can be 
accessed in any way for any purpose. 













Building Sequential disk files, as you remember from the discussion in 

Sequential Files chapters 6 and 7, require special handling. String variables that are 

printed next to each other must be separated by a comma. 

You may use the PRINT # statement either as part of a 
subroutine or within the main flow of the program. As an 
alternative method to the usual PRINT # statement followed by a 
series of variables names, you may build a single long string variable 
to be decomposed into its component variables on input. 

A typical file building subroutine is shown in program C12P1, 
starting at line 1000. 

10 'FILENAHEl •■C12P1‘' 

20 'FUNCTION? DEHONSTRATE HOW TO BUILD A SEQUENTIAL FILE 
30 ' AUTHOR ? JPG DATE? 6/80 

40 ' 

50 'user will suprly N sets of nsHies; eech set up to 50 neiftes 
60 CLEAR 2000? DEFINT A-Z? CLS? DIM H$( 50) 

70 INPUT “HOW MANY SETS OF NAMES"IN 

80 INPUT "HOW MANY NAMES IN EACH SET"IS 

90 ' input errey of nenies inUo niemory one at e time 

100 FOR K=1 TO N 

no FOR 1 = 1 TO S? PRINT "NAME'SII? INPUT N$( I)? NEXT I 
120 INPUT "WHAT IS FILE NAME"?F$ 

130 GOSUB 1000 'FILE ARRAY ONTO DISK 

140 NEXT K? GOTO 1070 

1000 'subroutine for buildins seouentiaT fiie 

1010 CLOSE? OPEN "0"n?F$ 'F$ is file nasne 

1020 'let user see what dets stored 

1030 FOR 1=1 TO S 

1040 PRINT 11 N$(I) 

1050 PRINT #n CHR$(34)IN$( I )»CHR$(34)I 
1060 NEXT I? CLOSE? RETURN 
1070 END 


Sometimes it is desirable to prepare the sequential output 
variables as a string separate from the actual file building subroutine. 
Program C12P2 below shows how a string array N $ can be used to 
hold logical records that contain both numeric and string variables. 

It uses the identical builder subroutine starting at line 1000 as in the 
previous program. 
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10 'FILENAME: “C12P2" 

20 'FUNCTION: ANOTHER WAY TO BUILD SEQUENTIAL FILES 
30 ' AUTHOR : JPG DATE: 6/80 

40 ' 

50 CLEAR 2000: DEFINT A-Z: CLS: DIM N$( 50) 

60 'input Brrey of coaposite strings 

70 FOR 1=1 TO 50: PRINT "NAME ('END' TO STOP)"»I» 

80 INPUT A$ 

90 IF A$="END" THEN N=I-i: GOSUE 1000: GOTO 1080 
'sccept rest of dsts only if not end 

110 INPUT "age";a: input "weight"jw 

120 INPUT "SEX (M OR F)jS$: INPUT "PT SCORE"jPT 
130 'build cootposite string 

140 N$( I )=A$F" 5 "+S$+" I "FSTR$( A }-fSTR$( W )FSTR$( PT ) 

150 NEXT I 

160 PRINT "ONLY 50 STRINGS ALLOWED IN THIS BUILDER" 
170 PRINT "YOUR 50 ENTRIES WILL BE SAUED»" 

180 N=50: GOSUB 1000 : GOTO 1080 

1000 'seeuentiBl file building subroutine 

1010 'N = nuBiber of logicBl records 

1020 close: open "0"?1»F$ 'F$ is neise of file 

1030 'let user see whet is stored 

1040 FOR 1=1 TO N 

1050 PRINT nN$(I) 

1060 PRINT #1? CHR$(34); N$( I)? CHR$(34); 

1070 NEXT I: close: RETURN 

1080 END 


Building Direct 
Access Files with 
Hash Addressing 


The TRS-80 disk system allows two basically different methods 
to build direct access files. The first method is universally permissible 
on any computer system with direct access files: You PUT the 
records to the file one at a time in sequence, with the first PUT 
placing information on record #1, and the Nth PUT placing 
information on record #N. The second method of direct access file 
building is not always available on a given computer. It allows you 
to PUT a record into the Ith position of the file without having 
written any of records 1 through I-l. This latter method makes 
hash addressing easy to implement. A hash address is a calculated 
record number that is generated from a record’s key, that part of the 
record which uniquely identifies it. Since the first method was amply 

demonstrated in chapter 8, we will include here an example of the 
second technique. 

Suppose you want to build a file of names in which the names 
are the unique keys. The following are the assumptions and 
conditions for the program: 

1. The number of names is exactly 45. They are to be found in 
a sequential file generated by the merge operation described 
in chapter 7. 

2. There is room for a direct access file of up to 75 records. 
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3. The key of the record is the name itself. That is, once the 
direct access file is built, the name will be used to access the 
proper record directly. 

4. The record number (the record’s position on the file) will be 
calculated by the program as a unique number between 1 
and 45 inclusive. If one name happens to generate the same 
record number as another name, the second record will be 
placed in the overflow area, which consists of positions 46 
through 75 in the file. 

Figure 12.1 shows a structure chart for this direct file builder 
program C12P3. 



Figure 12.1 Structure Chart for Program Cl2P3 
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10 tilenahe: ”ci2P3" 

20 -'FUNCTIONI DIRECT ACCESS FILE BUILDER 
AUTHOR : .JPG DATE; 6/80 


30 

40 


130 

140 

150 

160 

170 

180 


210 

220 

230 

240 

250 


50 CLEAR 2000: CLS 

oV .net iiBBie of sesuentisl file used for inpui 

It fill! ri«e"iFl» 

file used for output 

110 nPFH^"P"^'nVoL°rTr.“r sccess) file n8nie"fF2$ 

110 OF Eh R FIELD 2? 2 AS NN$? 30 AS NA$ 

120 is record numberf NA$ is stored neme 

DDLiT^nr??*"' records from input file 

.-FRINT "SA# nBme"? 

LPRINT TAB(30)f "hesh recj contents"? 

I.. PR I NT T AE< 52) ? " writ ten on " 

FOR Ir^l TO 45 

INPUT #1?N$ 

190 LPRINTJ? TAB(5)? N$? 

rnnni! i,!?! 'senerete hash eddress bssed on neme 

Guv.IjB 4;0yj 'fetch the heshed Bddress record 

Jf record not on file (RON) write rec. in Prime ares 
If un Tile (R=N) write rec» in overflow ares 
IF R=N THEN GOSUB 4000 '^et overflow address" 

GOSUB 3000 'write record 
260 NEXT I 

270 GOTO 10000 

1010 S-0 a hash address 

1020 FOR J=1 TO LEN(N$): S=S+ASC( MID«( N$?.J?1)): NEXT .J 

1030 K=S/45: N=( K-INT( K) )!K45: N=INT( N+1.1 ) ' to nearest int +1 
1040 LPRINT TAB(30)? NJ ^^ti.ii to ne.re^o int. 11 

1050 RETURN 

2000 get hashed record 

2010 GET 2fN; R=CMI(NN$) 

2020 IF RON THEN NB$-"asrbeSe" 

else NB$“-LEFT$(NA$?10 ) 

-1.030 LPRINT TAB(35)? R? TAB(40)? NB$? 

2040 RETURN 

^ write record 

3010 LSET NA$=N$: LSET NNf=MKI$(N): PUT 2?N 
3020 LPRINT TAB(59)?‘N 
3030 RETURN 

' generate overflow area address 

4010 FOR J=46 TO 75 
4020 GET 2?Jt JJ=CUI( NN$ ) 

IF JJ-J THEN NEXT J 'this record is occupied 

irnTlL , 'this is the one 

LPRINT TAB(53>? "oflow"? 

4060 RETURN 

10000 close: end 
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4030 

4040 

4050 



SA* ! 

name 

1 

ALIQUOT ALICE 

n 

£, 

ANONALY ANNABELLE 

3 

ANONALY ANTHONY 

4 

ASININE ARNOLD 

5 

BANDERSNATCH FRUNIOUJ 

6 

BELLER ELLERY 

7 

CUERVO CERVESA 

8 

ENENA ANONIE 

9 

FISTULA FELICITY 

10 

GABLE NARK 

11 

GNASHGNAT NATHANIEL 

12 

GRONNET ANDROHEDA 

13 

HARSHBARGER HERSCHEL 

14 

HEGIRA IRA 

15 

LANCASTER BART 

16 

LANCHESTER ELSIE 

17 

LAMORIS NORRIS 

18 

LOOSELIPS LINDA 

19 

NERGER NARGINAL 

20 

NINDERBINDER NILO 

21 

NONACO NONICA 

TO 

4^ A- 

NUSHNOUTH NUNGO 

23 

PARSLEY PELVIS 

24 

PARVENU NARVIN 

25 

PATELLA PETER 

26 

PONTIAC CARLO 

27 

POWER CYCLONE 

28 

RUBELLA ELLA 

29 

SALIVA TELLY 

30 

SIDDHARTHA GHAUTANA 

31 

SITHLE SANANTHA 

32 

SITHLE SIBILANT 

33 

SITHLE SINEON 

34 

SITHLE SYBIL 

35 

UVULA URSULA 

36 

VERNIFORN VERNON 

37 

UEEDEATER WANDA 

38 

WHEREWITHALL WILLY 

39 

WONBAT WILLY 

40 

WONBAT WILLY 

41 

20TZ0T XAVIER 

42 

ZOTZOT ZELDA 

43 

ZOTZOT ZEPPO 

44 

ZOTZOT ZIGGY 

45 

ZOTZOT ZIPPO 


hash 

rec* con ten is 

written 

26 

0 garbage 


34 

0 garbage 


27 

8370 garbage 


10 

-6683 garbage 


14 

10981 garbage 


32 

13088 garbage 


32 

32 BELLER ELL 

oflow 

22 

13618 garbage 


45 

—6683 garbage 


4 

-6683 garbage 


10 

10 ASININE AR 

oflow 

8 

8250 garbage 


37 

-24031 garbage 


10 

10 ASININE AR 

oflow 

9 

-6683 garbage 


23 

—6683 garbage 


18 

12628 garbage 


11 

-13569 garbage 


35 

4215 garbage 



on 

26 

34 

27 

10 

14 

32 

46 
?2 
45 
4 

47 
8 

37 

48 
9 

23 

18 

11 

T5S 


6 -13569 garbage 6 

17 17744 garbage 17 

12 -14533 garbage 12 

9 9 LANCASTER oflow 49 

4 4 GABLE NARK oflow 50 

32 32 BELLER ELL oflow 51 

28 8224 garbage 28 

10 10 ASININE AR oflow 52 

28 28 PONTIAC CA oflow 53 

20 -6683 garbage 20 

44 -6683 garbage 44 

44 44 SinUHARTHA oflow 54 

8 8 GRONNET AN oflow 55 

4 4 GABLE NARK oflow 56 

22 22 ENEHA ANON oflow 57 

6 6 NINDERBIND oflow 58 

30 8250 garbage 30 

23 23 LANCHESTER oflow 59 

41 -6683 garbage 41 

37 37 HARSHBARGE oflow 60 

37 37 HARSHBARGE oflow 61 

12 12 NUSHNOUTH oflow 62 

7 14896 garbage 7 

37 37 HARSHBARGE oflow 63 


33 14936 garbage 35 

41 41 UHEREWITHA oflow 64 
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Accessing The process of accessing a record involves reading the record 

from the direct access or sequential access file, and storing the 
information on the record into memory. 


Accessing Sequential access files can be loaded into memory one record 

Sequential Files at a time, or they can be copied into an array in their entirety. The 

GEOGRAPH program uses the latter technique to fill the record 
pointers, location names, and location descriptors. 


Accessing 

Direct Access Files Direct access files may be read either sequentially one record 

at a time from the first to some desired key, or directly by accessing 
a specific record according to its calculated hash address. The two 
programs that follow show both techniques. 


10 'FILENAHE: ”C12P4" 

20 ^FUNCTION! IHRECT ACCESS IN SEQUENTIAL ORDER 
30 ' AUTHOR 1 JPG DATE I 6/80 

40 ' 

50 CLEAR 20001 CLS 

60 INPUT "Existing direct eccess file nBnie"»F2$ 

70 OPEN "R-G2,F2$: FIELD 2, 2 AS NN$, 30 AS NA$ 

dO reed ell records in orderjf print blank line when no record 

90 LPRINT "Ail records on file"! LPRINT 

100 FOR 1=1 TO 45 

110 GET 2fll N=CVI(NN$) 

120 ' if N is not I then record position is not used 
130 IF N=I THEN LPRINT IjNA$ 

ELSE LPRINT If” " 

140 NEXT I 

150 'read overflow area 

160 FOR 1=46 TO 75 

170 GET 2^11 N=CUI(NN$> 

180 IF N=I THEN LPRINT I?NA$ 

ELSE LPRINT 15" " 

190 NEXT I 
10000 CLOSEl END 
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All records on file 


3 

4 GABLE HARK 

5 

6 MINDERBINDER HILO 

7 ZOTZOT ZELDA 

8 GROHHET ANBROHEDA 
V LANCASTER BART 

10 ASININE ARNOLD 

11 LOOSELIPS LINDA 

12 HUSHHOUTH HUNGO 

13 

14 BANDERSNATCH FRUHIOUS 

15 

16 

17 HONACO HOHICA 

18 LAVORIS HORRIS 

19 

20 SALIVA TELLY 

21 

22 ENEMA ANOMIE 

23 LANCHESTER ELSIE 

24 

25 

26 ALIQUOT ALICE 

27 ANOMALY ANTHONY 

28 PONTIAC CARLO 

29 

30 VERMIFORM VERNON 

31 

32 SELLER ELLERY 

33 ZOTZOT ZIGGY 

34 ANOMALY ANNABELLE 

35 MERGER MARGINAL 

36 

37 HARSHBARGER HERSCHEL 

38 

39 

40 

41 WHEREWITHALL WILLY 

42 

43 

44 SIDDHARTHA GHAUTAMA 

45 FISTULA FELICITY 
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46 CUERUO CERVESA 

47 GNASHGNAT NATHANIEL 

48 HEGIRA IRA 

49 PARSLEY PELVIS 

50 PARVENU HARVIN 

51 PATELLA PETER 

52 POWER CYCLONE 

53 RUBELLA ELLA 

54 SITHLE SAMANTHA 

55 SITHLE SIBILANT 

56 SITHLE SIMEON 

57 SITHLE SYBIL 

58 UVULA URSULA 

59 UEEDEATER WANDA 

60 WOMBAT WILLY 

61 WOMBAT WILLY 

62 ZOTZOT XAVIER 

63 ZOTZOT ZEPPO 

64 ZOTZOT ZIPPO 

65 

66 

67 

68 

69 

70 

71 

7 ’’) 

/ jC. 

73 

74 

75 
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10 'filename: ''C12P5" 

0 'Function: direct access by hash address calculation 
0 ■' author : JPG date: 6/80 

0 •' 

45 CLEAR 2000: CLS 

50 INPUT "EMisiins direct sccess file riBHte’'fF2$ 

AO OPEN '‘R“>2fF2$t FIELD 2» 2 AS NN$f 30 AS NA$ 

70 'del nsHie froni user 

80 INPUT "riBtfie Tend' to 5top)'‘fN$ 

85 LPRINT ''neaie soudhi is 
90 IF N$=^'‘er.d” THEN 10000 

ELSE GOSUB 1000 'del hssh gddress 
100 GET 2 jN: L=LEN(N$) 

120 IF N$=LEFT$(NA$a..) THEN LPRINT TAB(40)5 "on record ♦"»N: 

GOTO 70 

ELSE GOSUB 2000 'read oflow are 
140 IF ROO THEN LPRINT TAB( 40)? " found on overflow f" ? 

ELSE LPRINT TAB(40)I "not on file" 

150 GOTO 70 

1000 ■' dcnerste hash address 

1010 s=--o 

1020 FOR I~1 TO LEN<N$) 

1030 S=S+ASC(Hnif(N$jIfl )) 

1040 NEXT I 

1050 K=S/45: N=(K-INT(K))f45: N=INT(Niia) 

1060 RETURN 

2000 ' read overflow area 

2010 FOR J=46 TO 75 
2020 GET 2!J 

2030 IF N$=:LEFT$(NA$fL) THEN R=J: GOTO 2100 

ELSE NEXT J 

2040 R=0 'not on file 

2100 RETURN 

10000 close: end 


name soudhi 
name souyMt^ 
name soudhi 
name soudhi 
name soudhi 
name soudhi 


is MINDERBINDER HILO 
is SITHLE SIBILANT 
is MERGER MARGINAL 
is SUBLIMINAL SAMUEL 
is UVULA URSULA 
is end 


on record # 6 
found on overflow ♦ 55 
on record # 35 
not on file 

found on overflow ♦ 58 
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Modifying 


Deleting 


Sorting 


Direct access files have a major advantage over sequential access 
files when you have to modify just one record. Consider the process 
that is required when modifying a sequential file: 

1. Open old file for input. Open new file for output. 

2. Read all records on old file and write out on new file until 
proper record is found. 

3. Change the record that needs modification. 

4. Write out changed record on new file. 

5. Read the rest of the records from the old file, and write 
them out onto the new file. 

When one record of a direct access file needs modification, it 
can be done without reading any other records, and without having 
to create a new file. 


Deletion is the file operation that results in an unwanted record 
being culled or purged, and it is normally performed in two steps. 
The first step is to mark a record for future deletion. Numerous 
records can be marked, perhaps 10 or 20 percent of a file’s contents 
are records marked for deletion. The second step is to rebuild the 
file excluding the marked records. 

Marking records for deletion can be done in one of two ways: 

1. A specific numeric value that appears in every record, such 
as record number or age, can be assigned a negative value or 
an unlikely value, such as -32767. 

2. A string can be replaced with a flag or marker, signifying the 
fact that it has been marked for deletion. 

Deleting the records is accomplished by rewriting the file one 
record at a time, omitting the flagged records. 


Of all the operations that can be done on a file, its arrangement 
into some predetermined ascending or descending order seems to be 
one of the most common and troublesome. You can sort a file using 
any of three basic approaches: 

1. In-memory sort 

a. Read the file into an array in memory. 

b. Sort the array in memory. 

c. Write the memory array back out onto the file. 

2. Record-by-record sort 

Rearrange the records on file by reading them two at a time, 

and switching their positions when necessary. 

3. Sort-merge 

a. Read the file a portion at a time into an array in memory, 
sort each portion in memory, and create a series of new 
sub-files. 

b. Merge the sub-files into a single large file. 

In all three approaches, the key operation is the sorting 
operation itself, which rearranges the records into the desired order. 
The choice of sorting algorithm to do this is critical to the overall 
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speed of the operation. We will discuss this choice of algorithms 
shortly, but first you must consider which type of program you 
should use: In-memory, record-by-record, or sort-merge. 

The in-memory sort is by far the fastest, if you have the 
memory space. The array in memory must be able to hold the 
entire file, and in the case of 255-byte logical records that occupy 
the entire physical record, this could mean that the file would have 
to be quite small. Consider the case where the sorting program itself, 
not including the array, occupies 2000 bytes. In a 16K disk system, 
the memory that is left for the sort is only about 3800 bytes. In a 
32K system, the space is a more respectable 20,000 bytes. And in a 
maximum system of 48K, the total space free for the array is roughly 
36,400 bytes. Study of the table 12.1 will give you a feel for the 
effect of memory size on the computer’s capacity to sort arrays of 
records. Table 12.1 points out a rather disturbing fact: If you have 
a 16K system, you cannot store more than 14 physical records of 
255 bytes each in the computer’s free memory. However, all is not 
lost. If your file is longer than the 14 maximum records, it can still 
be sorted. This is because it is a direct access file and it can be sorted 
record-by-record. However, this second technique is between 100 
and 1000 times slower than an in-memory sort! 

We suggest that whenever the file is too large to fit into memory 
to be sorted there, you should use a combination of the in-memory 
and record-by ^-record sorts, which is the third technique, the 
sort-merge. We have discussed and demonstrated the sort-merge in 
chapter 7 when it was shown operating on a sequential file. 


Logical 
Record Size 
in Bytes 

tt 

ti 

ii 

Systea 

16K 

(3800) 

Size (free 
32K 

(20 »000 ) 

aeaor-y) 

48K 

(36»400 ) 

255 

II 

ti 

14 

78 

142 

128 

if 

29 

156 

284 

64 

tt 

59 

312 

568 

32 

tt 

118 

625 

1137 

16 

II 

237 

1250 

2275 

8 

II 

475 

2500 

4550 

4 

It 

950 

5000 

9100 


Table 12.1 Number of Records That Can Be Sorted in Memory 
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Sorting Algorithms 


Exchange Sorts 


Binary Sorts 


Aside from the medium on which the array to be sorted is 
located, which is either memory or disk, the single most important 
factor that determines the speed of the overall operation is your 
choice of sorting algorithm. The choice is rather large and varied, 
but there are some algorithms that are clearly better than others. 


The class of sorting algorithms known as exchange sorts 
includes the bubble sort, delayed exchange sort, and direct exchange 
sort. They are all very slow and unfortunately are often found in 
many otherwise good systems of programs. 


The better sorting programs all use binary sorts of one form or 
another. These algorithms rely on the fact that one can sort two 
sets of 50 elements with subsequent merging faster than one sort of 
100 elements; one can sort twenty sets of five elements with 
subsequent merging faster than five sorts of twenty elements; and 
one can sort 50 sets of two elements with subsequent merging faster 
than 25 sets of 4 elements. It is the comparison and subsequent 
rearrangement, or switching, of the elements that takes the time, 
and not the merging. 

We will show you two recommended methods for sorting: the 
Shell (really, a variation called the Shell-Metzner) and the Quicksort 
(one word). The Shell-Metzner sort was used previously in the 
Sequential File Sort-Merge program in chapter 7. We will not explain 
how these two sorts work, but we will show each of the sorts in two 
forms: Symbolic flowchart and BASIC subroutine. For those of 
you who are curious about the techniques of sorting and wish to 
study how they work, we suggest that you investigate Knuth’s 
Volume 3 of the Art of Computer Programming: Sorting and 
Searching. 
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Figure 12.2 Shell-Metzner Flowchart 
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Figure 12.3 Quicksort Flowchart 
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Program Cl2P6 demonstrates three sorts: exchange, 
Shell-Metzner, and Quicksort. The program times the sorts, so you 
can get a sense of their relative efficiencies. 

10 'FILENAHE: “C12P6" 

20 'FUNCTION! TO DEMONSTRATE SORTING ROUTINES 
30 ' AUTHOR ! JPG DATE! 7/80 

40 ' 

50 CLEAR 300 

60 DEFINT A-Z! DIM X( 1000 )f STK<700 ) 

70 INPUT "how ffieny numbers to sort'SN 
80 FOR 1 = 1 TO N! X( I )=RND( 900 )-199! NEXT I 
90 PRINT "choose sort"! PRINT "1 exchense" 

100 PRINT "2 Sheil-Melsner"! PRINT "3 QuicKsori” 
110 INPUT "which one"fC 
120 GOSUB 160! B$=TIME$ 

130 ON C GOSUB 1000? 2000? 3000 

140 C$=TIME$! GOSUB 160 

150 PRINT C$! PRINT B$! GOTO 70 

160 FOR 1=1 TO N! PRINT X<I)?! NEXT I! PRINT! RETURN 


1000 

ittexchense 

sorl^l 

1010 

FOR 1=1 TO N-i 


1020 

FOR J=I+1 TO N 


1030 

IF X( I )>X( J ) THEN T=X( I)! X( I )=X( J )I 

X( J)=T 

1040 

NEXT J 


1050 

NEXT I 


1060 

RETURN 


2000 

' *$Shell-Melzner 

sori*!t 

2010 

M=N 


2020 

M=INT(M/2) 


2030 

IF M=0 THEN 2120 


2040 

K=N-M! J=1 


2050 

I=J 


2060 

L=I-fM 


2070 

IF X(I)<=X( L) THEN 2100 


2080 

T=X(I): X(I)=X(L)! X(L)=T! I=I-M 


2090 

IF I>=1 THEN 2060 


2100 

J=J+1 


2110 

IF J<=K THEN 2050 

ELSE 2020 


2120 

RETURN 
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3000 

ItQuicK 

sorif4 

3010 

P=0; R=P+P: STK<Ril )=1P STK(R-i-2)=N: P=P-fl 


3020 

IF P=0 THEN 3150 


3030 

R=P'{P1 A=STK(Rll)t B=STK(R+2) 


3040 

Z=-X(A): TP=^AJ BT=-E42 'W is top? BT is 

botioni 

3050 

BT=BT--1 


3060 

IF BT=TP THEN 3110 


3070 

IF Z<=X(BT) THEN 3050 



ELSE X(TP)=X(B.T) 


3080 

TP^-^TP+l 


3090 

IF BT^^TP THEN 3110 


3100 

IF Z>=X(TP) THEN 3080 



ELSE X<BT)=X(TP)t GOTO 

3050 

3110 

X(TP)=Z 


3120 

IF B-TP>=2 THEN R=PTPt STK( R+1 )==TPfl t 



P=P+i: STK(R+2)=B 


3130 

IF BT“A>=2 THEN R=PiP: STK(R+1)=A5 



P=P-M1 STK(R+2)=BT--1 


3140 

GOTO 3020 


3150 

RETURN 


10000 

^ END 



Table 12.2 below summarizes a few observed sorting times 
using program Cl2P6. 


N 

It 

E>;ch* 

S-M 

Q 

20 

It 

5 

5 

5 

50 

It 

24 

16 

16 

100 


94 

33 

29 

200 

tl 

382 

93 

73 

500 

H 

2217 

303 

184 


Table 12.2 Sort Times in Seconds 
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Direct Access File Program C12P7 is included here to show the techniques that 

Statistics Program have been explained in this chapter. We have selected statistics as an 
area for data management because its records are often created, 
edited, deleted, and sorted, as well as having various statistical 
operations performed on them. 

Structure Chart for Program C12P7, Statistics System 
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The user of this program selects an activity from a menu that is 
displayed by the program’s first module. The main activities are 
independent of each other, but subordinate to the main module. 

The menu display looks like this: 



10 'FILENAHEi “C12F7" 

20 •'FUNCTION; GENERAL PURPOSE STATISTICS PACKAGE 
30 ' AUTHOR ; JPG DATE; 6/80 

40 ' 

50 CLEAR 20000; DEFTNT I-L 


60 '■ m5;-;:iBiuiii of 3 groups of ohserveiionsj 

70 ' 4 veriebies per observeIion 

80 ' 20 observslions? or subjects per group 


90 ■' velues » subis f subis of sost? sed* subis? corrs» 


100 

DIH X(3j4 

f20)jS(3>4 )?S2(3f4 )?33U )»R( 3!<4 j4 ) 

110 

CLS 



120 



display aenu 

130 

PRINT 

ii 

STATISTICS SYSTEM"; 

140 

PRINT 

"1 

creste erlificiai dele" 

150 

PRINT 

"2 

input real data" 

160 

PRINT 

"3 

edit date erray" 


PRINT 
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170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

4i>0 

470 

480 

490 

500 

510 

520 

530 

540 


PRINT "4 sort cisiB sr-r-By" 

PRINT "5 descriptive stetistics" 

PRINT "6 correlstion coefficient uiBtrix" 

PRINT "7 displBB dstB" 

PRINT "8 store detB on disK" 

PRINT "9 stop" 

PRINT! PRINT "select your choice by disit" 

INPUT A$! SP=yALCA$) 'SP for subroutine pointer 
IF SP<1 OR SP>9 THEN 130 
ON SP GOSUB 1000j2000»3000f4000f5000r 
6000 j7000:«8000?9000 

GOTO 110 

' utility subroutines 
^ chBnse sll LPRINTs to PRINTS 

POKE 16422?88! POKE 16423?4! RETURN 
' restore ell LPRINTs to LPRINTs 

POKE 16422?141! POKE 16423?5! RETURN 

change sll PRINTS to LPRINTs 

POKE 16414?141! POKE 16415?5! RETURN 
^ restore bH PRINTS to PRINTS 

POKE 16414?8S! POKE 16415?4! RETURN 

proifipt snd screen hold 
INPUT "/EN/ to continue"? A$! RETURN 
' Load dets file from disK 

INPUT "file nBme"?F$ 

' get number of slrouFS end verisbles first 

OPEN “I"?1?F$! INPUT *1? NG? NV 

get number of subjects per group next 
FOR K=1 TO NG! INPUT #1? NM(K)! NEXT K Per gp 
FOR K=1 TO NG 'first by group? 

FOR 1=1 TO NM(K) 'then by subject in group? 
FOR J=1 TO Nt' 'Bfid last by variable 
INPUT #1? X(K?J?I ) 

NEXT J?I?K! CLOSE! RETURN 

Store dBtB Brrsy onto disK 
sBve number of groups end number of verisbles 
OPEN "0"?1?F$! PRINT #1? NG?Ny 

' then SBve number of subjects per group 

FOR K=1 TO NG! PRINT *1? NH(K)! NEXT K 


550 FOR K=1 TO NG 

560 ' snd lest? the ohservetions themselves 

570 FOR 1 = 1 TO NM(K) 

580 FOR J=1 TO NV 

590 PRINT *1? X(K?J?I) 

600 NEXT J?I?K 
610 CLOSE! RETURN 
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1000 ' CreBie ertificisl dele 

1010 CLSl INPUT "how many grouFs do 3)"jNG 
1020 INPUT "rense of subjects Fer SrouF 

(1 to 20 — type low & high)"fNlrN2 
1030 INPUT "how BiBny verisbles Fer subject (to 4)“?NV 
1040 FOR K=:l TO NG 'K is SrouF index 

1050 NH(K)=RNIi(N2-Nl)-}Nl 
1060 PRINT "SrouF";K? NH( K )"BubJects" 

1070 FOR 1=1 TO NfK K) '1 is subject index 

1080 FOR J=1 TO NU 'J is variables index 

1090 X(K»J?I )=RND(90 )-F9: PRINT X( Kj J? I)? 

1100 NEXT j: print? 

1110 NEXT ll PRINT? GOSUB 370 
1120 NEXT K? RETURN 

2000 ' Data input 

2010 CIS 

2020 INPUT "data on file (yes or no)"?A$ 

2030 IF A$="yes" THEN GOSUB 390? RETURN 

2040 INPUT "how inany arouFS (to 3)"fNG 

2050 INPUT "how tfisny observations per subject (to 4)";NV 

2060 FOR K=1 TO NG 

2070 PRINT "how many in droup'SK?? INPUT NM<K) 

2080 FOR 1=1 TO NH( K ) 

2090 PRINT "enter"? NU? "values for subject ♦"? I 

2100 IF NV=1 THEN INPUT X(K?1?I)? GOTO 2140 
2110 IF NU=2 THEN INPUT X(K?1?I)?X(K?2?I)? GOTO 2140 
2120 IF Ny=3 THEN INPUT X(K?1?I )?X(K?2?I )?X( K?3?I )? 

GOTO 2140 

2130 INPUT X(K?1?I)?X(K?2?I)?X(K?3?I)?X(K?4?I) 

2140 NEXT I?K 

2150 INPUT "save on file (yes or no)"?A$ 

2160 IF A$="yes" THEN GOSUB 500 

ELSE RETURN 

2170 RETURN 

3000 ' Edit data file 

3010 FT$=" ### ###♦»♦# 

3020 IF NG=0 THEN PRINT "no data!"? GOTO 3130 'return 
3030 PRINT NG "groups" 

3040 FOR K=i TO NG 
3050 PRINT 

"subJ. var* 1 var* 2 var. 3 var* 4" 

3060 FOR 1=1 TO NM( K> 

3070 PRINT USING FT$? 

I? X(K?1?I>? X(K?2?I)? X(K?3?I)? X(K?4?I) 

3080 NEXT I 

3090 LINE INPUT 

"change which subject (/EN/=no change>"?A$ 

3100 IF A$<>"* THEN INPUT "which var. to wh3t"?Jl?X2? 

X(K?J1?VAL(A$))=X2? GOTO 3090 
ELSE 3110 
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3110 NEXT KJ INPUT "save this version (yes or no)"jA$ 
3120 IF A$='‘YES'’ THEN GOSUB 500 'So to SAVE subr» 
3130 RETURN 

4000 ' sort dels using Sheli-Helzner sort 

4010 PRINT "whet group (1 lo'’fNGr‘ or 'all' )"5J 
INPUT A$ 

4020 IF A$="Bii" THEN N1=U N2=NG: GOTO 4040 
ELSE NK=VAL(Af) 

4030 IF NK=0 THEN 4200 

ELSE N1=NK: N2=NK 

4040 PRINT "on which Key (1 to” fNVT’)" 5; INPUT Q 
4050 FOR K1=N1 TO N2; N=NH(K1) 

4060 H=INT(H/2)t PRINT g 245 ?Hj 
4070 IF H=0 THEN 4190 ELSE 4080 
4080 K=NM(K1)--Ht 3=1 
4090 I=.J 
4100 L--^IFH 

4110 IF X(K1»Q»I)<=X(K1»QjL) THEN 4170 

4120 FOR Jl=l TO NV 

4130 T=X(K1jJ1jI ): X(Kl»Jl»I)=X(Kl».JljL)t 

X(K1»J1»L)=T 
4140 NEXT J1 

4150 I=I-H 

4160 IF I>=1 THEN 4100 

4170 J=J+1 

4180 IF J<=K THEN 4090 

ELSE 4060 

4190 NEXT K1 
4200 RETURN 

5000 ' Descriptive statistics 

5010 INPUT "on screen (1) or printer (2)"»A 
5020 IF A=2 THEN GOSUB 330 'set for printer 
5030 FOR J=1 TO NVS S3(.J)=0t NEXT J 'grand sunis 
5040 FOR K=1 TO NG 'group by group calculations 

5050 CLS: PRINT "group ♦"JKf NM(K) 

5060 PRINT "VAR"»"SUH"»"MEAN"f"STEU DEV»" 

5070 FOR .J=l TO NVt S(Ks.J)=0: S2(K»J)=0 
5080 FOR JJ=1 TO NMt R(K»JJ )=0J NEXT JJ 
5090 FOR 1=1 TO NM( K) 

5100 S(K»J)=S(Kr.J)+X(K»J!rI) 'sums 

5110 S2( Kj J )=S2( K» J )FX( K» JjI mi I) 

5120 FOR JJ=1 TO NV 'crossproducts 

5130 R( K»J» JJ )=R( K» J» JJ )+X( K»J»l mi ) 

5140 NEXT JJ 

5150 NEXT I 

5160 H(KfJ)=S(K»J)/NM(K) 'means 
5170 V=(S2(K»J)-S(K»J))KM(Ki>J))/(NH(K)-l ) 'vars* 

5180 D(K»J )=SQR( V) 'standard deviations 

5190 PRINT Jf S(K»J)y H(KjJ}» EKK»J) 
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5200 S3( J)=S3(.J)+S( KfJ) 

5210 NEXT J: N=N'fNH(K) 

5220 IF A<>2 THEN GOSUB 370 

5230 NEXT K 

5240 PRINT "GRAND HEANS="5 
5250 FOR TO NVt PRINT J5S3<J)/N?t NEXT J 
5260 IF A=2 THEN GOSUB 350 'reset for screen 

5270 IF A02 THEN GOSUB 370 'proaet to continue 

5280 RETURN 

6000 ' Correietion coefficients 

6010 INPUT "on screen (1) or printer (2)"?A 

6020 IF A=2 THEN GOSUB 330 'set for printer 

6030 GOSUB 5030 'set descriptive statistics 

6040 FOR K=1 TO NG 

6050 FOR J=i TO NV 

6060 PRINT "verb's J? 

6070 FOR JJ=1 TO NO 

6080 IF J=J.J THEN R(K»Jf.JJ)=n GOTO 6120 'died. 

6090 T=R( K» J» J.J )"S( Kj J )!ftS< )/NM( K ) 

6100 B=NH(K)if:D(K»J)*D(KfJJ) 

6110 R(K»J»JJ)=T/B 

6120 PRINT TAB(JJ)KIO) USING »R( )» 

6130 NEXT JJt PRINT 

6140 NEXT .J: print 
6150 NEXT K 

6160 IF A=2 THEN GOSUB 350 'reset for screen 

6170 IF A<>2 THEN GOSUB 370 'prompt to continue 
6180 RETURN 

7000 ' list date errsy 

7010 INPUT "on screen (1) or printer (2 )"jA 
7020 IF A=2 THEN GOSUB 330 'set for printer 
7030 CLSt PRINT NG "Sroups'S 

NM "veriebles per subject" 

7040 FOR K=1 TO NG 

7050 PRINT NM(K) "subjects in group *" K 
7060 FOR 1=1 TO NH<K ) STEP 2 
7070 FOR J=1 TO NV 

7080 PRINT X(K»JfI); 

7090 NEXT Jt PRINT» 

7100 FOR J=1 TO NV 

7110 PRINT X<K».J»I+l)j 

7120 NEXT J: PRINT 

7130 NEXT It PRINT 

7140 IF A=2 THEN GOSUB 350 'reset for screen 

7150 IF A02 THEN GOSUB 370 'prompt to continue 
7160 RETURN 

8000 ' store dets on disK 

8010 INPUT '•filensffle"fF$: GOSUB 5001 RETURN 
9000 ' closing routine 

9010 CLOSE 
9020 END 
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This chapter has shown by example several techniques that are 
commonly used to manage, or manipulate, the records that exist on 
sequential or direct access files. So far, we have assumed that the 
information of the records is independent of the file’s structure. 
That is, no record has any information that relates to its position on 
the file, or to the position of any other record on the file. We have 
introduced one exception to that scheme, and that was the direct 
access file structure generated by hash addressing, each record of 
which had its record number embedded within the record as a data 
entry. 

In the next chapter, we will expand on the idea of a record 
containing some information about its position on the file. You 
will discover fast accessing methods, sorts that don’t rearrange keys, 
and a process for arranging the data file so that these techniques and 
others are a part of the overall package. 

Through development of a parts inventory system we will use 
most of the ideas discussed in the previous chapters of this book. 
The system is based on the Binary Sequence Search Tree structure 
which has been thoroughly explained in Microcomputer Power: 
Guide to Systems Applications. 
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Inventory System 
Application 


The discussion and program listings that follow are all part of 
an existing, working system that uses Binary Sequence Search Tree 
file organization and structure. It is a generalized inventory system 
that maintains the data file’s entries, whether they relate to shoes, 
ships, or sealing wax. The programs are written to be non-specific 
so that the reader may adapt them to whatever record-keeping 
functions are desired. 

Each record of the file occupies 63 bytes of a 256-byte phy¬ 
sical record, or sector, on a direct access disk file. The records 
consist of 13 fields and are detailed in table 13.1. 

The last record on the file has only three fields: 

Field 1 (integer) is the root record number for the tree 
structure. 

Field 2 (integer) is the total number of records. 

Field 3 (string) is a file description. 






No. 

Type 

Sise 
(bytes) 

yeriable 

Nsroe 

Description 

1 

Ini. 

2 

LL 

Left linK of BSST 

2 

Int. 

2 

RL 

RiSht linK of BSST 

3 

Sir. 

12 

PT$ 

Pert number or name 

4 

Sir. 

25 

Des$ 

Description of psrt 

5 

Sng. 

4 

DP! 

Dealer price? per unit 

6 

SnS. 

4 

LP! 

List price? per unit 

7 

Ini. 

2 

OH 

Units on hand 

8 

Int. 

2 

00 

Units on order 

9 

Int. 

2 

SB 

Hiniffiuffl stock Quantity 

10 

Int. 

2 

H 

Units sold in past month 

11 

Int. 

2 

N 

Units sold in past 3 

12 

Int. 

9 

0 

mon ths 

Units sold in past 12 

13 

Int. 

2 

P 

months 

Units sold in past 24 


months 

Table 13.1 Inventory System Record Description 



Name 

Purpose 

Bytes 

Lines 






0 

INUMAIN 

Main driver program 

700 

20 

1 

INypRl 

Add a part to a file 

4300 

110 

n 

iL 

INypR2 

List parts (sorted) 

1800 

50 

”7 

o 

IN'v'PR3 

Delete a part from a file 

3300 

90 

4 

INypR4 

Chanse a part description 
or information about a part 

3600 

110 

5 

INVPRS 

List the records in entered 
Order- 

1200 

40 

6 

INypR6 

List deleted parts in a file 

1100 

30 

7 

INypR7 

Balance BSST tree links 

4500 

120 

8 

INypR8 

List files in use 

700 

20 

9 

INypR? 

Delete a file 

1700 

30 

10 

INVPRIO 

Show all information on a 
selected part 

3600 

80 


Table 13.2 Index to Programs in Inventory System 
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INVMAIN Program The entire system of programs runs from one central menu 

driver program that both displays the list of activities and branches 
to the program that performs the selected activity. 

There are ten programs subordinate to INVMAIN in the 
inventory system. Each one was designed to perform a different 
task. Table 13.2 is an index to those programs, including their 
names, purpose, and approximate size in bytes (to the nearest 
hundred), and length in number of lines (to the nearest ten). 

10 'FILENAME! ”INVMAIN" 

20 'FUNCTION! DRIVER PROGRAM FOR BSST INVENTORY SYSTEM 
30 ' AUTHOR ! SPG DATE! 1/12/79 REV! 7/80 

40 ' 

SO'** displBysenu 

60 CLS! PRINT! PRINT! PRINT 

70 PRINT "ON-LINE INVENTORY SYSTEM" 

80 PRINT!PRINT 

90 PRINT "1 3 dd P 3 rl 5 7 balsnce BSST tree file" 

100 PRINT "2 list psrls (sorted) 8 list files in use" 

no PRINT "3 delete 3 part 9 delete s file" 

120 PRINT "4 chsnse pert desc» 10 set info* on 3 P3rt" 

130 PRINT “5 list ell records 11 stop" 

140 PRINT "6 list deleted psrts* 

150 PRINT 

160 LINEINPUT "Select your sctivity by nuBiher! "» A$ 

170 IF A$="" THEN 50 

180 IF A$="ll" THEN STOP 

190 IF VAL(A$)<1 OR VAL(A$)>10 THEN 50 

200 P$="INVPR*+A$! RUN Pf 

210 END 

The output of the INVMAIN program is the menu display. 
Here is what it looks like. 


0 

N-LINE INVE 

N T 

ORY SYSTE 

M 

1 

add parts 

7 

belsnce BSST tree 

file 

2 

list psrts (sorted) 

8 

list files in use 


3 

delete s P3rt 

9 

delete s file 


4 

chsnse part desc* 

10 

Set info* on 3 part 

5 

list 3ll records 

11 

stop 


6 

list deleted psrts 





Select your ectivity by number! le 


Chapter 13 Inventory System Application 


215 



INVPRl 


The INVPRl program adds items to an inventory file. 


1000 'FTLENAhEt "INVPRl" (CALLED BY "INVMAIN") 

1005 'FUNCTIONS ADD AN ITEM TO THE INVENTORY 

1010 ' AUTHOR I SPG DATE: 1/19/79 REV. 7/80 

1015 ' 

1020 DEFINT A-Z: CLEAR 1000: FIRST=0 
1025 CLS 

1030 get file name - FL$. 

1035 FL$="" 

1040 PRINT "Pleese type either." 

1045 PRINT " the file nsnie of en old file" 

1050 PRINT " or" 

1055 PRINT " 'help' for s list of the files in use" 

1060 PRINT " or" 

1065 LINE INPUT "'0' for e new file: "? FL$ 

1070 IF FL$="help" OR FL$="HELP" THEN RUN "INVPR8" 

1075 IF FL$<>"0" AND FLfO"" THEN 1175 

1080 IF VAL(FL$)>0 THEN 1030 ' try esein. 

1*585 ' new file, get its nsnie. 

1090 INPUT "Whst is this new file's netrie (to 8 chsr 5 .)"jFL$ 
1095 IF FL$="" THEN 1030 

1100 ' store new filensme into file "FILENAME". 

1105 close: PRINT "stsnd by ...": OPEN "R'M»FL$ 

1110 IF LOFtDOO THEN PRINT "File "rFL$?" slresdy exists": 

GOTO 1030 

1115 close: D$=LEFT$( FL$F" ",8) 'trim to 8 chsrs. 

1120 OPEN "R"yl»"FILENAME": FIELD 1? 255 AS A$ 

1122 'tt seerch for right file. 

1125 S=SF1 

1130 IF L0F(1)=S~1 THEN L=i: GOTO 1145 

ELSE GET 1»S 

1135 FOR L=1 TO 255 STEP 8 

1140 IF MID$( AfjLjl )<>" " THEN NEXT l: GOTO 1122 

ELSE B$=LEFT$(A$fL-l HD$ 

1145 'tt store file de scription. 

1148 D1$=MID$( A$!L.IFLENC D$)-l) 

1150 IF D$<>D1$ THEN LSET A$=B$: PUT 1»S: CLOSE 
1155 close: open "R"s1,FL$ 

1160 GOSUB 1800 

1165 IF IEN=0 THEN IEN=i: GOTO 1225 

1170 ' get Isst record on file. 

1175 'tt open the file labeled FL$. 

1180 close: OPEN "R"»1jFL$ 

1185 ' check to see if file exists — 

1190 ' if notn go bscK to beginning, 

1195 IF LOF(1)=0 THEN PRINT " no such file ...": GOTO 1030 
1200 ' Set record thst hss the root> etc. 

1205 IF IEN=0 THEN IEN=1 
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1210 GOSUB 1700 
1215 GET 1,L0F(1) 

1220 R=Cyi(ROOT$); NH=CMI(NH$)t FL$=r!ESC$t IEN=LOF( 1 ) 

1225 CLSt PRINT "DisKelle file de&CTielion is ”jFL$ 

1230 'tt gel new peri number Pl$» 

1235 I=R: P1$=”’' 

1240 LINEINPUT "Perl number (/EN/=relurn)? "5P1$ 

1262 'tt redefine peri number, 

1265 P1$=RIGHT$(" ■•■}-Pl$»12) 

1270 ' is null? 

1275 IF RIGHT$(P1$»2)<>" 0" AND RIGHT$( Pl$»1 )<>" ” THEN 1285 
1280 IF L0F(1)=1 AND FIRST=0 THEN 1422 

ELSE 1392 

1285 'tt set links to 0. 


1290 IF 1=0 THEN R=i: RL=0; LL=0t GOTO 1327 

1295 'tt read dale record, 

1300 FIRST=i: GOSUB 1600 

1305 IF P1$>P2$ THEN 1317 

1310 IF P1$=P2$ THEN PRINT "Blreads on file"! GOTO 1225 
1315 IF LL=0 THEN LSET LL$=HKI$(lEN>1 PUT l.II GOTO 1327 
ELSE I=LL: GOTO 1295 

1317 'tt field data record, 

1320 GOSUB 1800 

1325 IF RL=0 THEN LSET RL$=HKI$(lEN )t PUT 1,1 
ELSE I=RL*, GOTO 1295 

1327 'tt set new JinKs to 0, 

1330 RSET PT$=Pli; LSET LL$=HKI$(0): LSET RL$=HKI$(0) 

1335 ' get other details on the part, 

1340 INPUT "Short part description"»DS$t LSET DES$=DS$ 

1345 INPUT "Dealer price" ?SP!J LSET DP$=f1KS$( SP! ) 

1350 INPUT "List price"fXP!t LSET LP$=hKB$(XP! ) 

1355 INPUT "How many on hBnd"fOHt LSET OH$=HKI$(OH) 

1360 INPUT "What is minimum stocK";SBt LSET SBf=NKI$(SB) 
1365 LSET N$=HKIf(0)t LSET 0Of=N$; LSET H$=N$t LSET 0$=N$ 
1370 LSET P$=N$ 

1375 NM=NH41 ' increase no, of active records, 

1380 IF R=0 THEN R=1 ' if root is 0 make it 1, 

1385 ' put the new record on file, 

1390 PUT 1? IEN: IEN= L0F(1)+1J goto 1225 
1392 'tt field data on the lest record, 

1395 GOSUB 1700 

1400 ' put the new data into the record buffer, 

1405 LSET DESC$=FLf 
1410 LSET NM$=HKI$(NH) 

1415 LSET R00T$=HKI$(R) 

1420 PUT If LOFdl+l ' put last record onto file, 

1422 'tt return to menu display, 

1425 INPUT "/EN/"f Aft RUN "INVMAIN" 

1600 'tt subroutine to read a record, 

1610 GOSUB 1800 
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1620 GET Ijit LL=CVI(LU)J RL=CVI(RL$): P2$=PT$ 

1630 RETURN 

1700 'tt routine to field root record . 

1705 FIELD 1? 2 AS R00T$» 2 AS NM$? 25 AS DFSn$ 

1710 RETURN 

1800 ' tt routine to field dete recordf 

1805 FIELD 1» 2 AS LL$j 2 AS RL$f 12 AS PT$j 25 AS DES$» 

4 AS DPff 4 AS IFtf 2 AS 0H$> 2 AS 00$» 

2 AS SB$j 2 AS Mf 2 AS N$f 2 AS 0$» 

2 AS P$ 

1810 RETURN 
1820 END 


This is the dialog that INVPRl produces as the user executes it. 

Please type either! 

the file nanie of an old file 
or 

'help' for a list of the files in use 
or 

'0' for a new file! parts«- 

DisKette file description is parts 

Part nurfiber (/EN/=return)! 1984 

Short part description? unflanded droffiuiet 

Dealer price? >13 

List price? »39 

How isany on hand? 6999 

What is niiniauffi stock? lOOOe 
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INVPR2 


The INVPR2 program performs a traversal of the binary 
sequence search tree structure which allows the listing of all parts in 
sorted order. 


2000 'FILENAHE: "INyF'R2'’ (CALLED BY "INUHAIN") 

2010 'FUNCTION! LIST PARTS IN SORTED ORDER 

2020 ' AUTHOR : SPG DATE! 1/19/79 REV! 7/80 

2030 ' 

2040 DEFINT A-Z 

2050 CLEAR 500! DIM STKdOO )! CLS 

2060 PRINT "SORTED ORDER TRAVERSAL" 
2070 B$= 

"% I % % 

2080 ' 

2090 t% open epproprisie file* 

2100 CLOSE 

2130 INPUT "Nsme of file ('help'^lisi of files )"?FL$ 

2135 IF FL$="heip" OR FL$="HELP" THEN RUN "INVPRS” 

2140 IF VAL(FL$»0 THEN PRINT "invslid entry*"! GOTO 2090 
2150 OPEN "R"»1 jFL$ 

2160 IF LOF(1)=0 then print "no such file*"! GOTO 2090 
2170 ' now field Issi (root) record* 

2180 FIELD If 2 AS ROOT$f 2 AS NH$f 25 AS DESC$ 

2190 GET IfLOF(l)! R=CVI(ROOTf ) 

2200 ' initielize ordered treverssl* 

2210 P=R! T=0 
2220 GOSUB 2500 

2230 FIELD 1? 2 AS LL$f 2 AS RL$f 12 AS PT$f 25 AS DES$f 
4 AS DP$f 4 AS LP$ 

2240 ' %t trsverse* 

2250 T=T-{-l! STK(T)=P 

2260 IF POO THEN GOSUB 2600! P=LL! GOTO 2240 
2270 T-T“"l 

2280 IF T=0 THEN 2350 
2290 P=STK(T) 

2300 GOSUB 2600 ' del Pth record and its links* 

2310 LOOP=LOOP+1! PRINT USING B$? PT$f DS$f LP!? DP!! T=T-1 
2320 IF L00P>11 THEN PRINT! INPUT "/en/'-fAl! GOSUB 2500 
2330 P=RL! GOTO 2240 
2340 ' 

2350 'ttttt closind routine to del root* 

2360 FIELD If 2 AS R00T$f 2 AS NM$f 25 AS DESC$ 

2370 PRINT "file is of the dess 
2380 GET If LOF(l)! F$=DESC$ 

2390 PRINT Ft 

2400 INPUT "/EN/"f At 

2405 ■'%%%%% return to sienu* 

2410 RUN "INVHAIN" 
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print hesdind for tehie 


2500 'ttttt 
2510 CLSJ PRINT 

" PARTI DESCRIPTION L. PR, D, PR," 

2515 LOOP=0 ' zero the counter vsrieble LOOP 

2520 RETURN 

2600 '%%%%% det cists from buffer, 

2605 GET IfPl LL=CMI(LL$): RL=CVI( RL$) 

2610 DS$=DES$; riP!=CVS(DPf )1 LP!=CUS<LP$) 

2620 RETURN 
2630 END 


This is what the output looks like from a typical run of the 
traversal program. 
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INVPR3 


The INVPR3 program performs record deletion. 


3000 'FILENAME! "INUPR3" (CALLED BY "INVMAIN") 

3010 'FUNCTION! TO DELETE ITEMS FROM THE FILE 

3020 ' AUTHOR ! SPG DATE! 1/19/79 REM* 7/80 

3030 ' 

3040 DEFINT A-Z! CLEAR 500! CLS 

3050 'tt Set, root (R) from lest record. 

3060 CLOSE 

3070 PRINT "Uhsi is the file's nerde" 

3080 INPUT "(Isee 'help' for the list of files)”? FL$ 

3090 IF FL$="" OR UALCFL$ )>0 

THEN PRINT “invelici entry."! GOTO 3050 
3100 IF FL$="help" OR FL$="HELP" THEN RUN "INVPR8" 

3110 OPEN "R'M?FL$ 

3120 IF LOF(1)=0 THEN PRINT "no such file."! GOTO 3050 
3130 GOSUB 3850! GET 1»LOF(1 )! R=CVI( ROOTf )! N=CVI(NM$ ) 
3140 ' 

3150 Set new neme? Nl$. set W to Istest root. 

3160 ' 

3170 INPUT "Pert to be deleted — '0'=return"f Nlf! W=R 
3180 Nl$=LEFT$(Nl$fl2)! N1$=RIGHT$(" "+Nl$fl2) 

3190 ' if no Biore deletions? replece R on lest record. 
3200 IF RIGHT$(N1$?5)=" 0" OR RIGHT$( Nl$?1 )=" " THEN 3700 

3210 ' Set root, if deletion is not root? seerch on. 

3220 I=R! GOSUB 3800! LL=CUI(LL$)! RL=CVI(RL$) 

3230 IF N1$<>PT$ THEN 3320 

3240 ' if no risht brench? new root is left link. 

3250 IF RL=0 THEN R=LL! GOTO 3580 

3260 ' if no left brench? new root is riSht link. 

3270 IF LL=0 THEN R=RL! GOTO 3580 

3280 ' neither link is null, new root is riSht link. 

3290 F=R! R=RL! S=0 

3295 'Set Ith. record. 
3300 IF W=0 THEN INPUT "pert not on file. /EN/"?A$! GOTO 3150 
3310' 

3320 this neme is not root, look some Hiore. 

3330 I=W! GOSUB 3800! LW=CUI( LL$)! RW=Cyi(RL$ ) 

3340 IF N1$=PT$ THEN 3390 

3350 ' neuie still not found, look eSein. 

3360 F=W 

3370 IF N1$<PT$ THEN S=1! U=LW! GOTO 3295 

ELSE S=0! U=RW! GOTO 3295 

3380 ' neme is found! check links LU end RW. 
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3390 if 3i leesl the left link is null? check RW* 

3400 IF LW=0 THEN 3500 

3410 ' left link is not null* what ehoui risshi link? 

3420 IF R!4=0 THEN 3550 

3430 ' neither link is null* Set fether record* 

3440 I=F: GOSUB 3800 

3445 IF S=0 THEN LBET RL$=HKIf(RW) 

ELSE LSET LL$=HKI$(RU) 

3450 ' once new risht link is etteched? rewrite on file* 
3460 PUT If It Z=RW 

3470 ')kik reset new null link. 

3480 I=Zt GOSUB 3800t LZ=CUI(LL$) 

3490 IF LZ=0 THEN LSET LL$=I1KI$< LW )t GOTO 3580 
ELSE Z=LZt GOTO 3470 

3500 '%% left link is null* whet ebout right link? 

3510 IF RW=0 THEN 3550 

3520 ' get fsther record? write with new right link* 

3530 I=Ft GOSUB 3800 

3540 IF S=0 THEN LSET RL$=HKI$<RW )t GOTO 3580 
ELSE LSET LL$=HKI$(RU )t GOTO 3580 
3550 'tt get fether? reset left link with this right* 
3560 I=F: GOSUB 3800 
3570 IF S=0 THEN LSET RL$=MKI$<LW) 

ELSE LSET LL$=MKI$(LN) 

3580 'tt rewrite both new records? return to seerch* 

3590 N=N-i: PUT l?i: I=W 
3600 GOSUB 3800 

3610 LSET DP$=HKS$(-DP!)t PUT 1?I 
3620 GOTO 3150 

3700 'ttttt routine to rewrite new root record* 

3710 GOSUB 3850 

3720 GET lfL0F(l)t LSET ROOT$=MKI$( R )t LSET NM$=!iKI$(N) 
3730 PUT IfLOFd) 

3740 RUN "INVHAIN" 

3800 'tnu routine to fetch the Ith* record* 

3810 ' get Ith* record* 

3820 GOSUB 3900 

3830 GET l?It PT$=P1$; DP! =:CVS( DP$ ) 

3840 RETURN 

3850 'ttttt routine to describe the root record* 

3860 FIELD 1? 2 AS ROOTS? 2 AS NH$?25 AS DESCS 
3870 RETURN 

3900 'ttttt routine to describe the dste record* 


3910 FIELD 1? 2 

AS 

LLS? 

2 

AS 

RLS? 

12 

AS 

PIS? 25 

AS 

DESS? 

4 

AS 

DPS? 

4 

AS 

LPS? 

2 

AS 

OHS? 2 

AS 

DOS? 

2 

AS 

SBS? 

2 

AS 

MS? 

2 

AS 

NS? 2 

AS 

OS? 

2 

AS 

PS 










3920 RETURN 
3930 END 
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The dialog between the user of INVPR3 and the computer is 
shown below. 

Whsi 15 the file’s nsHie 

(type 'help' for the list of files)? eerts 
l-sri to be deleted — '0'=relurn? 7390 
psrt not on file* /EN/? 

Perl to be deleted — '0'^return? 789 

Pert to be deleted — '0''=return? 5652 

perl not on file* /EN/? 

Pert to be deleted — '0'=return? 565b 

Pert to be deleted — '0'-return? ^ 
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INVPR4 


The INVPR4 program performs an access to the file in order to 
update the contents of a record. It is essentially a modification of 
the INVPRl program that added records to the file. 


4000 'FILENAME! ’■INMPR4" (CALLED BY "INVMAIN") 

4005 'FUNCTION! TO CHANGE AN INVENTORY RECORD 

4010 ' AUTHOR ! SPG DATE! 1/19/79 REM* 7/80 

4015 CLEAR 5001 DEFTNT A-Z! CLS 

4020 'tt open e dsia file* 

4025 INPUT “File neme — ('heip'=iist of files )"jFL$ 

4030 IF FL$=“helP'" OR FL$="HELP" THEN RUN "INMPR8" 

4035 IF FL$="“ THEN PRINT "bsd file neae"! GOTO 4020 
4040 OPEN "R'M,FL$ 

4045 IF L0F(1)=0 THEN PRINT "no such file"! GOTO 4020 
4050 FIELD 1,2 AS R00T$, 2 AS NM$, 25 AS DESf 
4055 GET 1,L0F(1) 

4060 R=CVI(R00T$} 

4065 PRINT " file description is "5DES$ 

4070 FIELD 1, 2 AS LL$, 2 AS RL$, 12 AS Pl$, 25 AS DES$, 

4 AS DP$, 4 AS LP$, 2 AS 0H$, 2 AS 00$, 

2 AS SB$, 2 AS M$, 2 AS N$, 2 AS 0$, 

2 AS P$ 

4075 ' 

4080 ' ni s i n record changer 

4085 ' 


4090 Nl$="" 

4095 INPUT "Pari nuaber — /EN/=riO further changes" jNl$ 

4100 N1$=LEFT$( Nl$,12)! N1$=:STRING$( 12-LEN( Nl$ )," " )+Nl$ 
4105 IF RIGHT$(N1$,2)=" 0" 

OR RIGHT$(N1$,1 )=" " 

THEN RUN "INVMAIN" 

4110 ' search for part number Nl$* 

4115 I=R! GOSUB 4770 

4120 'tt , start access of tree* 

4125 IF N1$>PT$ THEN 4140 

4130 IF N1$=PT$ GOTO 4160 

4135 IF LLOO THEN I=LL! GOSUB 4770! GOTO 4120 

4140 'tt check right link* 

4145 IF RLOO THEN I=RL! GOSUB 4770! GOTO 4120 

4150 1=0 

4155 IF 1=0 THEN PRINT "pert no* "5N1$5" was not found*"! 

INPUT "/EN/"5A$! GOTO 4080 

4160 'if-t tttr-ecord was found 

4165 ' get the rest of the information out of the buffer* 
4170 DP!=CVS(BP$)! LP! =CVS( LP$ )! 0H=CMI(0H$)! 00=CVI(00$)! 

SB=CVI(SB$)! H=CMI(M$)! N=CVI(N$)! 0=CMI(0$)! P=CVI(P$) 
4175 PRINT "RECORD 4" 51 
4180 ' 
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routine 


4185 

'tt 

m a 

i n ' Hi i n i 

4190 

PRINT 

"1 

description 

4195 

PRINT 

" 1 

dealer price 

4200 

PRINT 

"3 

list price 

4205 

PRINT 

"4 

no. on hand 

4210 

INPUT 

"Which activity"»A$ 


i dr i V e r' 

5 no» on order 

6 no» there should be 

7 sales history info* 

8 no more changes" 


4215 IF A$="" THEN PUT l»n GOTO 4080 

4220 IF VAL<A$)<i -0R VAL( A$ )>8 THEN 4185 

4225 IF UAL(A$)=8 THEN A$=""l PUT 1?K GOTO 4080 

4230 ON VAL(A$) GOSUB 4300»4350y4400,4450»4500j4550»4600 

4235 GOTO 4185 

4300 'ttttt subroutine to change description* 

4310 PRINT "descTiption=">DES$t A$="" 

4320 INPUT Ai 

4330 IF LEN(A$)<>0 THEN LSET DES$=A$ 

4340 RETURN 

4350 'ttttt subroutine to change dealer price. 

4360 PRINT "dealer price="5DP! 

4370 INPUT DPi 

4380 IF DPiOO THEN LSET riP$=HKS$( DP! ) 

4390 RETURN 

4400 ' subroutine to change list price. 

4410 PRINT "list price="?LP! 

4420 INPUT LP! 

4430 IF LP<> THEN LSET LP$=MK8$(LP!) 

4440 RETURN 

4450 'ttttt subroutine to change # of units on hand. 

4460 PRINT "no. on band="5OH 
4470 INPUT OH 

4480 IF OHOO THEN LSET 0H$=HKI$(0H) 

4490 RETURN 

4500 'ttttt subroutine to change # of units on order. 

4510 PRINT "no. on order="»00 
4520 INPUT 00 

4530 IF OOOO THEN LSET OOt=HKI$(0O) 

4540 RETURN 

4550 'ttttt subroutine to change stocK limit. 

4560 PRINT "no. there should be (stocK limit)="fSB 
4570 INPUT SB 

4580 IF SBOO THEN LSET SB$=HKI$(SB) 

4590 RETURN 

4600 'Wtt subroutine to change the sales history. 

4610 PRINT "sales history information:" 

4620 PRINT 1 TAB(5) M “units sold in the past 2 months." 

4630 PRINT 2 TAB( 5) N "units sold in the past 6 months." 

4640 PRINT 3 TAB( 5) 0 "units sold in the past 12 months." 

4650 PRINT 4 TAB( 5) P "units sold in the pest 24 months." 

4660 A$="": PRINT 
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4670 INPUT “which do you went to chende (/EN/=none)"?A$ 
4680 IF VAL<A$><1 OR VAL( A$ )>4 THEN RETURN 
4690 C$="“; PRINT 

4700 INPUT “Whet is the new nuffiber"f C$ 

4710 ON MAL(A$) GOSUB 4730»4740j4750,4760 
4720 RETURN 

4730 H=UAL<C$): LSET H$=HKI$(H)J RETURN 
4740 N=yAL(C$): LSET N$=MKI$(N): RETURN 
4750 0=:VAL<C$): LSET 0$=HKI$<0): RETURN 
4760 P=VAL(C$)t LSET P$=MKI$(P): RETURN 

4770 'ttttt get Ith record? links? end pert nuniher* 

4780 GET l?It LL=CVI(LL$): RL=CVI(RL$); PT$=P1$ 

4790 RETURN 
4800 END 


User interaction with INVPR4 looks like this. 

File neme — <'help'=li5t of files)? perts 
file description is perts 
Pert nufiiber — /EN/=no further changes? 1934 
RECORD # 22 

1 description 5 no» on order 

2 deeler price 6 no. there should be 

3 list price 7 seles history info. 

4 no. on hend 8 no more changes 

Which ectivity? 1 
description=unflenged grommet 

? refler.ged grommet 

1 description 5 no. on order 

2 dealer price 6 no. there should be 

3 list price 7 seles history info. 

4 no. on hend 8 no more changes 

Which ectivity? e 
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INVPR5 


The INVPR5 program lists all records in their physical order, 
ignoring the BS ST’s logically sorted order. 


5000 ' FILENAME I " INypR5'' 
5010 ^FUNCTION! TO LIST AL 
5020 ' AUTHOR 1 SPG 
5030 CLEAR 5001 DEFINT A-Z 


(CALLEh FROM "INUMAIN" ) 
RECORDS ON A DATA FILE 

date: 1/19/79 REV. 7/80 


5040 'tt 
5050 CLOSE! CLS 
50AO .INPUT -file neme 
5070 IF FL$="heiF" 


file neifie from user 

('heip'=li5i of files )" fFL$ 

OR FL$=’'HELP'' THEN RUN "INVPRS" 


4 


ELSE OPEN " 

5080 IF L0F<1}=0 THEN PRINT "no such file. 
5090 FIELD 1 ? 2 AS R00T$i< 2 AS NH$i-15 AS DESC$ 
5100 GET 1, L0F( 1) 

5110 NM=CVI<NH$) 

5120 CLS 


R’M»FL$ 
GOTO 5040 


5130 PRINT "file description is "» DESC$ 
5140 PRINT TAB( 10 )> NM? "ective iteni^-." 

5150 B$= 

### 7. 7. 7. 7 

5160 GOSUB 5600 

5170 FOR 1=1 TO LOF(l)-l 

5180 GOSUB 5500 

5190 L00P=L00P+1 

5200 IF L00P>11 THEN GOSUB 5600 

52,10 PRINT USING E$; I, LL? RL, PT$y DES$, 
5220 NEXT I 

5230 INPUT "/EN/"f A$: RUN "INVMAIN” 

5235 ^ 




DP If LP! 




5500 

5510 PT$="" 
5520 FIELD 1 

5530 GET If I 


field end Set dete record. 

2 AS LL$f2 AS RL$fl2 AS PT$f25 AS DES$f 
4 AS DP$f4 AS LP$ 


5540 LL =CVI(LL$): RL =CVI(RL$): PT$=PT$ 
5550 DP!=CVS(DP$): LP!=CVS(1P$) 

5560 RETURN 


5600 'ttttt 
5610 LOOP=0 

5620 INPUT "/EN/"JA$: CLS 

5630 PRINT 

•’ 11 rl Pt 

5640 RETURN 

5650 END 


subroutine to print heeding. 


description dp Ip" 
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The output from the INVPR5 program looks like this. 



11 

rl 

pi 

1 

9 

3 

8430 

2 

8 

5 

5643 

3 

6 

7 

/ 

2456y 

4 

18 

8 

789 

5 

9 

0 

565b 

6 

20 

10 

8440 

7 

/ 

11 

12 

62651 

8 

13 

21 

2397 

9 

0 

14 

5648 

10 

15 

0 

2456s 

11 

0 

16 

36433 

/EN/? 




description 

dp 

slesHi sKyhooK 

945.00 

sBisll wids'el 

45.66 

yellow WBSOO 

6.75 

fen iBSHiBdorion 

-55.00 

ten dslion hst 

23,57 

Sss sKyhook 

1011.00 

older folder-h 

0.69 

rislht-hended e 

13.80 

Isrde widget 

59.90 

striped wbzoo 

8.50 

funnelscope 

67.80 


ip 

1488.00 

61.50 

7.89 

39.95 

38.99 
1444.88 

0.89 

20.99 

88.99 

12.99 
76.39 



11 

r 1 

pt 

description 

12 

17 

0 

62659 

plein folder-5 

13 

nn 

0 

2394 

left-hended es 

14 

0 

0 

5650 

e>:tr3“lsrge wi 

15 

0 

0 

24565 

51ue wszoo 

16 

0 

0 

46559 

towhooK 

17 

0 

0 

62656 

newer folder~h 

18 

0 

0 

562 

risht-BPigled f 

19 

0 

0 

5655 

five gellon 53 

20 

0 

0 

8432 

electric sKyho 

21 

0 

0 

5440 

flBnSed groniHie 

22 18 
/EN/? 1^ 

0 

1984 

reflenged grom 


dp 

0.79 

14.60 

72.83 
6.25 

42.84 

1.99 
0.57 

--18.43 

893,00 

0.16 

0.13 


ip 

0.99 

21.88 

99.80 

9.99 

49.95 

2.39 

1.29 

29.98 

1399.52 

0.39 

0.39 
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INVPR6 


The INVPR6 program provides a list of the deleted parts by 
searching the desired file in sequence until it finds a negative dealer 
price, which is how the deletion program INVPR3 marks a record to 
be deleted. All the records with negative dealer prices are listed. 


6000 'FILENAHEJ "INVPR6" (CALLED FROH "INUfiAIN" ) 

6010 'FUrCT.I0N: TO LIST DELETED PARTS 

6020 ' AUTHOR t SPG DATEl 1/19/79 REV» 7/80 

6030 DEFINT A-Z 

6040 

1 y. y. 

6050 'tt get fi.le nsme from user* 

6060 CLOSE 

6070 INPUT "file nsme ('heir''of files )"?FL$ 

6080 IF FL$="hele" OR FL$="HELP" THEN RUN "INVPR8" 

6090 IF yAL(FL$»0 THEN PRINT "no such file,"! GOTO 6050 
6095 OPEN "R'MfFL$ 

6097 IF LOF(1)=0 THEN PRINT "file is emely/'l GOTO 6050 
6100 FIELD 1 j 4 AS F$» 12 AS PT$» 25 AS DES$f 
4 AS DP$j 4 AS LPf 
6110 GOSLIB 6220 
6120 FOR 1=1 TO L0F( 1 )-l 
6130 GET l?i; DP!=CUS(DP$) 

6140 IF DP!>0 THEN NEXT It GOTO 6200 
6150 LP!=CVS(LP$) 

6160 L00P=L00Pil 

6170 IF L00P>=12 THEN INPUT "/EN/"? A$t GOSUB 6220 
6180 PRINT USING B$; PT$y DES$» ABS(DP! ), LP! 

6190 NEXT I 

6200 'tt return to menu driver* 

6210 INPUT "/EN/’S A$; RUN "INUHAIN" 

6220 'ttttt print hesdind* 

6230 CLS: LOOP=0 

LIST OF DELETED I T E H S" 


description dir pr list pr" 


6235 PRINT " 
6237 PRINT 
6240 PRINT 
" per t # 

6250 RETURN 
6260 END 


Output from INVPR6 would look like this. 


LIST OF DELETED ITEMS 


part i 


789 

565h 


/EN/? e 


description 
fentesmeSorion 
five dallon het 


dir pr list pr 
55.00 89*95 

18*43 29*98 
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INVPR7 


The INVPR7 program performs the tree balancing necessary to 
maximize the efficiency of the BSST file structure. Table 13.3 
shows a typical tree before and after balancing. Program INVPR7 
causes this transformation. 




Before 



After 


Record 

Perl 

* LL 

RL 

Pari # 

LL 

RL 

1 

7 

2 

3 

8 

9 

3 

2 

n 

JL. 

4 

6 

4 

4 

5 

3 

8 

0 

cr 

J 

12 

6 

7 

4 

1 

0 

0 

n 

3 

9 

5 

11 

9 

10 

6 

10 

11 

6 

4 

15 

7 

10 

1 n 

4. .C. 

13 

7 

5 

0 

8 

14 

14 

15 

8 

6 

0 

0 

1 

0 

0 

9 

9 

0 

14 

3 

0 

0 

10 

15 

11 

0 

ET 

0 

0 

11 

14 

12 

0 

•7 

/ 

0 

0 

12 

12 

0 

13 

9 

0 

0 

13 

13 

0 

0 

11 

0 

0 

14 

10 

0 

0 

13 

0 

0 

15 

3 

0 

0 

15 

0 

0 


Table 13.3 A Typical Tree Before and A fter Balancing 


7000 'FILENAHEl "IHVPR7” 

7010 'FUNCTIONt TO BALANCE THE BINARY SEARCH TREE 
7015 ' AUTHOR t SPG BATEl 1/19/79 REV. 7/80 

7020 ' efier s method oridiriBlly described by JDR 
7025 CLSt print: PRINT 

7030 PRINT " THIS P R 0 G R A M B A L A N C E S 
THE BINARY SEARCH TREE" 

7035 print: PRINT 

7040 CLEAR 300: DEFINT A-Z: DIH f1SK< 200 )f KLN(200 ) 

7045 " t% file nsitie from user. 

7050 CLOSE 

7055 INPUT "file neme ('helF''=list. of files I'SFLf 
7060 IF FL$="help" OR FL$-"HELP" THEN RUN "INVPR8” 

7065 IF VAL(FL$)>0 THEN PRINT "no such file.": GOTO 7045 
7070 OPEN "R"rlrFL$ 

7075 IF LOF(1)=0 THEN PRINT "no such file.": GOTO 7045 

7080 GOSUB 7650 

7035 FOR S=1 TO L0F(1 )-l 

7090 GET IsS 

7095 LL=CVnLJ$): RL=CMI(LK$): DP!=CVS(DPf) 

7100 IF IiP!<0 THEN 7110 


230 


Chapter 13 Inventory System Application 



7105 IF LL>0 AND F;L=0 OR RL>0 AND LL=0 THEN Y=Y-fl 
7110 NEXT S 

7115 EAL~100*( Y/( LOFC1)-2)) 

7120 PRINT "The tree is eireedy "f lOO-BAL? "% balanced*" 
7125 S=7t( L0F( 1)- l )l H=INT( S/3600 )t HI=INT( S/60 ) 

7130 MI~HI-Hf60: S=S-(H^3600iHI^60 ) 

7135 PRINT " Balancing the file could take as long as —" 
7140 PRINT " (hSniIs)? H? HI? "1"? S 

7145 INPUT "Do you want it haianced further <y or n)"?S$ 
7150 IF LEFT$(S$yl )<>"y" THEN RUN "INMHAIN" 

7155 GOSUB 7600 
7160 GET l,LOF(l) 

7165 N=CMI(NH$)1 R=CVI( ROOT$>1 D$=DESC$ 

7170 PRINT "N="?Nf "R="?R? "DS$="?DESC$1 N1=N 

7175 ' fill kin array with balanced pointers* 

7180 K=i: H=INT((N1 + 1 )/2 ) 

7185 kln(K)=m: hsk(M)=i; i=it q=i 
7190 'tt 

7195 H=INT((H+1 )/2): U=Qt Q-Q+Q 

7200 FOR C=U TO 0-1 

7205 L=KLN(C)-M 

7210 IF L<1 OR L>N1 THEN 7220 

7215 IF HSK(L)=0 THEN K=:K+n KLN(K)=L: MSK(L)=1 

7220 'U 

7225 L=KLN(C)IH 

7230 IF L<1 OR L>N1 THEN 7240 

7235 IF HSK(L)=0 THEN K=K+n KLN(K)=Lt HSK<L}=1 

7240 

7245 NEXT Ct I=H1 
7250 IF H>1 THEN 7190 
7255 FOR 1=1 TO Nil 

IF MSK(I) <> 1 THEN K=K-flJ KLNCK)=I 
7260 NEXT I 

7265 PRINT "NOW C 0 P Y I N G" 

7270 ' traverse? copying into "NEATFILE" in sorted order* 
7275 CLOSE 21 OPEN "R"»2?"NEATFILE" 

7280 1=0: T=o: P=R 

7285 'tt fetch and stack until p=0* 

7290 IF POO THEN T=T-M: STK(T)=PJ GOSUB 76501 GET 1?P1 

P=CVI(LJ$)1 GOTO 7285 

7295 ' if too POP the stack? transfer to "NEATFILE"* 

7300 IF TOO THEN P=STK(T)1 T=T-11 1=1411 GOSUB 78001 

P=CVI(LK$)1 GOTO 7285 

7305 ' print out the positions to he filled* 

7310 FOR 1=1 TO N 
7315 PRINT KLN(I)? 

7320 NEXT II PRINT 
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7325 

7330 

7335 

7340 

7345 

7350 

7355 

7360 

7365 

7370 

7375 

7380 

7385 

7390 

7395 

7400 

7405 

7410 

7415 

7420 

7425 

7430 

7435 

7440 

7445 

7450 

7455 

7460 

7465 

7470 

7475 

7480 

7485 

7600 

7605 

7610 

7650 

7655 


7660 

7700 

7705 


' build Iree^ simply Ireverse end rewrite FL$* 

' note thet KLN corfieins pointers for neet new filet 
R=0; T=0: CLOSE It KILL FL$J OPEN '’R%1»FL$ 

'tt Set record from "NEATFILE" eccordind to KLNt 

I=R: T=T+n L=KLN(T) 

GOSUB 7900: GET 2jL 

IF 1=0 THEN R=T: GOBUB 76501 GOTO 7400 
'tt det new recordt 

GOSUB 7700 

IF P2$=PT$ THEN PRINT P2$j "duplicete"! GOTO 7435 
' rebuild file in BSST order onto FL$. 

IF P2$>PT$ THEN 7390 

IF LL=0 THEN LSET L.J$=MKI$< T )1 PUT Irll GOTO 7400 
ELSE I=LL: GOTO 7360 
' tt 

IF LR=0 THEN LSET LKf=HKI$(T)t PUT 1»I 
ELSE I=LRt GOTO 7360 

'tt put verisbles in fieldt 

LSET Ld$=MKI$(0)l LSET LK$=MKI1;( 0 )1 RSET PT$=P2$ 

LSET riES$=DS$; LSET BP$=D2$1 LSET LP$=L2$ 

LSET 0H$=02$1 LSET 00$=03$1 LSET SB$=S2$t LSET H$=H2$ 
LSET N$=N2$t LSET 0$=04$t LSET P$=P4$ 

' PRINT THE PART NIJHBER 

PRINT USING •% PT$»1 PUT IjT 

'tt checK for end of loopt 

IF T<N THEN 7340 

' rewrite new root record on new "INVENBAT“t 

GOSUB 7600 

LSET R00T$=HKI$(1 )1 LSET NM$=HKI$(N)1 LSET riESC$=D$ 
PUT If L0F( 1 HI 

' retrun to INVHAIN efter cleenind upt 

KILL "NEATFILE": PRINT! PRINT 

PRINT "b 3 1 s n c i n d is c o m p 1 e t e*" 
INPUT "/EN/"f A$: RUN "INV'HAIN" 


'ttttt field the root recordt 

FIELD If 2 AS R00T$f 2 AS NH$f 25 AS DESC$ 

RETURN 

'ttttt routine to field dste recordt 

FIELD If 2 AS LJ$f 2 AS LK$f 12 AS PT$f 25 AS DES$> 

4 AS DP$f 4 AS LPff 2 AS 0H$f 2 AS OOff 2 AS SB$» 


2 AS M$f 2 AS N$f 2 AS Off 2 AS Pf 
RETURN 

'ttttt routine to fetch 3 dete record from FLft 

GOSUB 76551 GET If 11 LL=CUI<LJf): 

LR=CMI<LKf)l RETURN 
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7800 'ttttt routine to S-et from FL$f write on "NEATFILE". 

7805 GOSUE 7650E GET 1»P 

7810 GOSUE 7900: L3$=LJ$t L4$~LK$ 

7815 LSET P2$=PT$; LSET DS$=r!ES$? LSET Ef2$=DP$ 

7820 LSET L2$=LP$; LSET 02$=0H$t LSET 04$=00fl LSET S2$=SE$ 
7825 LSET M2$=H$: LSET N2$==N$t LSET 04$==0$J LSET P4$=P$ 

7330 IE I>=1 THEN 

Il$=PT$t PRINT I? Ilf?" description^ "?nES$ 
7835 PUT 2,I{ RETURN 
7840 RETURN 

7900 'ttttt routine to describe dete on "NEATEILE". 

7905 FIELD 2? 2 AS L3$» 2 AS L4fj 12 AS P2$j 25 AS DS$j 
4 AS D2$f 4 AS L2$j 2 AS 02$» 2 AS 03$? 

2 AS S2$? 2 AS 2 AS N2f? 2 AS 04$» 

2 AS P4$ 

7910 RETURN 
7920 END 


The balancing program is an example of a program 
communicating to the user its state of execution. It not only 
calculates how well balanced the tree is (by counting unbalanced 
terminal nodes) but it prints the records that it is copying as it 
performs the balancing. 

THIS PROGRAM BALANCES 
THE BINARY SEARCH TREE 


file neme ('help'=ii5t of files)? perts 
the tree is elreedy 84 % belencedf 

belsncinS the file could teKe es lond bs— 
<h:mJ5)f 0 : 0 : 49 


do you want it bslBnced further (y or n )? y 


N= 7 

1 
2 

3 

4 

5 

6 
4 
3 


R= 1 

NOW COPYING 

2923 de5cription= 
36932 de5cription= 
245623 de5cription= 
564322 de5cription= 
843234 de5cription= 
3643325 de5CPiPtion= 

n 


564322 

843234 


36932 


DS$=P3r ts 

towhooK 
esr trumpet 
blue wBzoo 
widdet 
sKyhooK 
funnelscope 
6 
7 

3643325 


1 

2923 


balancins is complete* 
/EN/? le 


245623 
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INVPR8 


The INVPR8 program accesses the file called FILENAME, 
which is a file whose sole purpose is to record the names of all files 
used in the system. 


8000 'FILENAHEl "INypR8" (CALLED FROM HOST PROGRAMS) 

8010 'function: lists all of the files in use 

8020 ' AUTHOR I SPG DATE: 1/19/79 REV* 7/80 

8030 CLEAR 1000: DEFINT A-Zt CLS: S=0 
8040 PRINT " THIS PROGRAM L I S T S 

ALLOFTHEFILESINUS E:" 

8050 print: print 

8060 C$=="Z y. 7. 7. X X X X“ 

8070 OPEN "R’Mf-FILENAME": FIELD 1» 255 AS A$ 

8080 S=S-F1 

8090 IF LOF(l)=S-l THEN 8160 

ELSE GET 1»S 

8100 FOR L=1 TO 223 STEP 321 IF MID$(A$»L»1 )=" " THEN 8160 

8110 IF MID$( Af»Ljl )=" " THEN 8160 

8120 FOR I=L TO L+24 STEP 8 

8130 PRINT USING C$; MID$(A«yIfI+7)5 

8140 NEXT I 

8150 NEXT L: goto 8080 

8160 INPUT "/EN/"»A$: RUN "INVMAIN" 

8170 END 


The output produced by INVPR8 looks like this. 


THIS PROGRAM LISTS 
ALL OF THE FILES IN USE: 


per-Is fliopsrls 


/EN/? <- 
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INVPR9 


The INVPR9 program removes the name of a file from the 
index file “FILENAME” and kills that file if the user wishes. 


9000 'FILENAHEl "INypR?" 

9010 /function: to delete any selected file 

9020 / AUTHOR 1 SPG , DATE: 1/19/79 REV, 7/RO 

9030 CLS 

9040 PRINT " FILE D E L E T T ON P R 0 G R A H" 

9050 print: PRINT 

9060 INPUT "negie of file io be deleted (' help'=1 isl)” S Ft $ 
9070 IF FL$="helF*’ OR FL$=''HELP" THEN RUN "INVPRB" 

9080 OPEN "R'MfFLI 

9090 IF L0F(1)=0 THEN PRINT "file contBined no deiB,": 

PRINT "It has been deleted,": 

PRINT "Will be deleted from 'help'": 
GOTO 9140 

9100 PRINT "file contBine"? L0F( 1)? "dete itenis," 

9110 PRINT "Are you sure you went it deleted (Y=ye=.)" 

9120 INPUT Bf 

91,j0 IF B$<..>"Y" THEN 9260 'note thst Y is CBpitelized, 
9140 close: KILL FL$ 'delete the dets fi.tp itself, 

9150 OPEN "R’/lr"FILENAME" 'then delete fr-oti. "Fit FNAMF*, 
9160 FLf=FL$ESTRING$(8“LEN( FL$)?" ") 

9170 FIELD 1, 255 AS N$ 

9180 M=H-M 
9190 GET IfH 

9200 FOR .1=1 TO 255 STEP 8 

9210 IF HID$< N$? JjI )=" " THEN 9250 

9220 IF Mni|(N$!.J!8)<>FL$ THEN NEXT .Jl GOTO 9180 

9230 N$=LEFTf( N$,.J--1 )THID$( N$r J-fSfLENt N$ )) 

9240 PUT l,n 

9250 PRINi "Deletion completed, "5 
9260 F’RINT "Returning to ffiBin menu," 

9270 RUN "INVHAIN" 

9280 END 
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INVPRIO 


The INVPRIO program uses the BSST access algorithm to get a 
specific record and then it displays all of the information on that 
record. The display is designed specifically for the record contents 
of this system. 

10000 'FILENAHEl "INMPRIO" (CALLED FROM "INOHAIN") 

10010 'FUNCTION! TO PRINT THE CONTENTS OF ANY RECORD. 

10020 ' AUTHOR ! SPG DATE! 1/19/79 REV. 7/80 

10030 DEFINT A-Z! CLEAR 500 

10040 'tt gel file nsfue from user. 

10050 CLOSE 

10060 INPUT "WhBl is file neme ('help'=lisl)”? FL$ 

10070 IF FL$="" THEN 10040 

10080 IF FL$=“helF” OR FL$=^"HELP" THEN RUN "INVPRS" 

10090 OPEN ‘■R'M»FL$ 

10100 IF L0F(1)=0 THEN PRINT "no such file."! GOTO 10040 
10110 GOSUB 10800 

10120 GET IrLOF(l)! R=CVI(R00T$)! N=CVI(NM$) 

10130 ' 

10140 ' 

10150 'tt set new perl no.? Nl$! set W lo Isiesi root. 
10160 Nl$="'' 

10170 INPUT ” Uhel is perl no. ('0/=return )"»N1$ 

10180 U=R 

10190 'psd peri number to 12 chsrecters with blenKs. 

10200 N1$=RIGHT$(’■ ''+N1$!-12) 

10210 R$=RIGHT$<Nl$fl )! IF m~” " THEN 10660 

10220 ' get root, if pert is not root? seerch on. 

10230 I=R! GOSUB 10700! LL=CVKLL$)! RL=CVK RL$) 

10240 IF N1$<>PT$ THEN 10340 

10250 ' if no risht brench? new root is left linK. 

10260 IF RL=0 THEN R=LL! GOTO 10150 

10270 ' if no left brench? new root is risJht link. 

10280 IF LL=0 THEN R=RL! GOTO 10150 

10290 ' neither link is null, new root is rishl link. 
10300 F=R! R=RL! S=0 

10310 'tt pert number not found. 

10320 IF W=0 THEN INPUT "pert not on file. /EN/"? A$! 

GOTO 10150 

10330 ' 

10340 neme is not root. look some more. 

10350 I=W! GOSUB 10700! LW=CVI(LLf)! RU=CVI(RL$)! 

IF Nl$=PTf THEN 10380 

10360 ' neme still not found, look edein. 

10370 F=W! 

IF N1$<PT$ THEN S=l! W=LW! GOTO 10310 
ELSE S=0! W=RU! GOTO 10310 
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10380 

10390 

10400 

10410 

10420 

10430 

10440 

10450 

10460 

10470 

10480 

10490 

10500 

10510 

10520 

10530 

10540 


'tt nsme is found. 

GOSliB 10900 

DP!=CVS( DP$ ): 0H=CUI(0H$): H=CUI(H$)I N=CVI( N$ ) 
LP!=CVS(LP$)t 00=CUI<00$)? 0=^CVI(0$)? P^CVKPf) 
SB-“Cyi(SB$) 

CIS 

FRIHJ STRING$(63y‘‘-'‘ ) 

PRINT " PSP I no.— "j PT$ 

PRINT " description — "j IiES$ 

PRINT STRING$( 63»"~" ) 

PRINT " deeier price - 

PRINT USING ”$$?♦«.«" 5 DP!; 

PRINT “ list price — 

PRINT USING LPI 

PRINT STRING$<63»"-") 

PRINT “ There ere"? OH? "units on hand." 
PRINT TAB(4); 00? "units ere on order."; 


10550 PRINT 
10560 PRINT 
10570 PRINT 
10580 PRINT 
10590 PRINT 
10600 PRINT 


sb; 


the HiiniHium stock auentity." 


STRING$<63s 
TAB< 19); 
TAB( 23); 
TAB(23); 
TAB< 23); 


) 


SALE 

PBSt 2 

pest 6 
pest 12 


S HISTORY" 
Bionthsl"; H 
months 1"; N 
months!"; 0 


10610 PRINT TAB(23); "pest 24 BionthsJ’SP 
10620 PRINT STRING$(63»CHR$(95)) 

10630 FOR Y=10 TO 15! SET (60yY)! SET <61 jY)! NEXT Y 
10640 FOR Y=1 TO 43! SET ( 1»Y )! SET (126yY)! NEXT Y 
10650 GOTO 10150 

10660 'tt return to menu driver. 

10670 INPUT "/EN/";A$! RUN "INVHAIN" 

10700 'ttttt routine to fetch the Ith record. 

10710 GOSUB 10900! GET 1»I! PT$==P1$! DP!=CyS(BP$) 

10720 RETURN 

10800 'ttttt routine to describe the root record. 

10810 FIELD Is 2 AS ROOT$j 2 AS NHfi- 25 AS DESC$ 

10320 RETURN 

10900 "ttttt routine to describe the dete record. 

10910 FIELD If 2 AS LL$j 2 AS RL$? 12 AS Pl$? 25 AS DES$? 

4 AS DP$, 4 AS LP$? 2 AS OH$f 2 AS 00$s 

2 AS SB$» 2 AS Hif 2 AS N$j 2 AS 0$» 

2 AS P$ 

10920 RETURN 
10930 END 
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This is what the screen looks like when it displays'the 
information on an item on file. 



Well, there it is. This last system represents a high degree of 
sophistication on a microcomputer. It contains examples of some 
of the best building, accessing, updating, and sorting techniques that 
are available today, on any computer. When you have mastered 
these techniques, you will have at your disposal the variety of tools 
that will provide you with both breadth and depth in the application 
of your craft. We can only suggest that you keep using these tools, 
and others as you discover them, to further sharpen your expertise. 
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The teble thel follows this brief discussiort cofftF-gres three 
POFulgr versons of BASIC. The three have been ehbrevieted Ms E? end 
DJ ii stends for Hicrosoft's BASIC es inieleaented on the TRS-SO? 
including the enhencenients in TRSBOS? E stends for BASIC~E Version 
2.0j e soBiewhet dated (lete 1978) version of one of the Biost eopulgr 
conieiler-type BASICs) end D stends for CEC BASIC PLUS? Bigitel 
EeuiPHient CoHipeny's siost populer Hiinicompiiter BASIC. BASIC-PLUS is 
included here in order to coiftpere en "old” (eerly '70s) version of 
the lensuede fornted on Hiuch more eMpensive hgrdwere to the newer 
BASICS developed strictly for microcomputers. The reeder should note 
elso thet some hidhly edvenced versions of BASIC-E exist? such es 
CBASIC or CBASIC-2? 


Type of 
BASIC 

H E D BASIC Feetures 


N Y Y Compiler thet produces storeble object code 

Y N N Direct? or Celculetor? mode of operetion 

Y N N Built-in editor 

N N Y RENUM or RESEQ 

Y N N TRACE to help debuddind 

Y Y N Lond verieble nemes <more then letter-didit) 

Y N N Double precision veriebles 

Y N N Inteder veriebies 

Y N N Hex end octal veriebles 

Y N N VARPTR 

N H Y Multiline user-defineble functions 

Y N N Error treppind with ON ERROR - GOTO 

Y NY Text error messedes 

Y NY Implicit dimensionindf Defeult size is 10 

N N Y Metrix instructions? e.d. HAT X=INV(Y) 

N N Y Metrix I/O 

Y N N ? substitutes for PRINT . 

Y N Y ' substitutes for REM 

Y Y Y IF - THEN ~ ELSE 

Y N Y PRINT USING 

Y N Y INSTR finds the position of e cherecter 

Y N N STRING$ prints a series of characters 

Y N N PEEK & POKE 

Y N Y TIME$ accesses system clocK 
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ASCII codes 192 through 255 are called space compression 
codes because printing one of these characters causes tabbing for 
0 to 63 spaces. 


10 'FILENAME! “APPENDIX" t., ^ crDro.c 

20 'FUNCTION! PRODUCE ASCII CODES & CHARACTERS IN 3 SCREENS 

30 ' AUTHOR ! JDR PATE 8/80 

40 CLEAR 1000 ! CLS ! DIM A$( 191 ) 

50 FOR 1=0 TO 31 ! READ ,X$ ! A$( I )=LEFT$( X$+" 'SS) ! NEXT I 

60 DATA NUL!rSOH»STX»ETX»EQT»ENQ!-ACKfBEL>BS»HTjLF 

70 DATA yT»FF»CR»S0jSIfDLEfDCl»DC2»DC3»DC4yNAK 

80 DATA SYNfETBjCANrEMfSUB?ESCjFSiiGSyRSiiUS 

90 FOR 1=32 TO 191 ! A$( I)=CHR$( I) ! NEXT I 

100 FOR H=0 TO 128 STEP 64 ! N=M+63 

no GOSUB 140 ' print screen of ASCII codes 

120 FOR K=1 TO 1000 ! NEXT K ! CLS ' delay 

130 NEXT M ! STOP 

140 ' subroutine to display 64 codes and ASCII equivalents 
150 FOR I=M TO N 

160 IF I=INT( I/8)i[t8 THEN PRINT 

170 IF I<32 THEN PRINT RIGHT$( “ "-ISTRf( I )»3);" "JAflD?" "5 
ELSE PRINT RIGHT$(STR$(I)>3)f" "jA$(I)»" "f 
180 NEXT I ! RETURN 
190 END 
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Address 

Hex Deciasl 


Herdwere 


0000 0 

0400 1024 


IK ROM 
IIK ROM 


Memor y Con ten ts 


I/O Hrivers end BoolstrsF- 
Level II BASIC). DisK BASIC 


3000 

12288 

2K ROM 

I/O addresses 

3800 

14336 

IK RAM 

Keyboard memory 

3C00 

15360 

IK RAM 

CRT screen memory 

4000 

16384 

5K RAM 

BASIC vectors 

4200 


4K RAM 

TRSDOS 

5200 


6,5K RAM 

Disk BASIC 


TRSDOS Utilities 


6C00 

7000 


IK RAM 
4K RAM 


User Memory 

User Memory (to 16K system) 


8000 32768 16K RAM User Memory (to 32K system) 


COOO 


16K RAM 


User Memory (to 48K system) 


FFFF 65535 
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a (Lower Csse ) 

EDIT 


ABS 

ELSE 


AND 

END 


ASC 

EOF 


ATN 

ERL 


CDBL 

ERR 


CHR$ 

ERROR 


CINT 

EXP 


CLEAR t 

FIELD 

t 

CLOSE 

FIX 


CLS 

FOR 

t 

CHD 

FRE 


CONT * 

GET 


COS 

GOSUB 


CSNG 

GOTO 

t 

CVD 

IF 

t 

CL'I 

INKEY$ 

t 

CL'S 

INP 


DATA 

INPUT 


DEFDBL t 

INSTR 

t 

DEFFN 

INT 


DEFINT t 

KILL 


DEFSNG 

LEFT$ 

t 

DEFUSE 

LET 


DEF3TR 

LEN 


DELETE 

LINE 


DIH 

LIST 


t LOAD 

RESET 

t LOC 

RESTORE 

t LOF 

RESUME 

LOG 

RETURN 

t LSET 

RIGHT! 

MEH 

RND 

* HERGE 

t RSET 

HIDf 

1 SA'v'E 

t HKD$ 

SET 

t MKI$ 

SGN 

t MKS$ 

SIN 

NEW 

SQR 

NEXT 

STEP 

NOT 

STOP 

ON 

STRING! 

t OPEN 

STR$ 

OR 

TAB 

OUT 

TAN 

PEEK 

THEN 

POINT 

t TIME! 

POKE 

TROFF 

POS 

TRON 

PRINT 

USING 

t PUT 

t USR 

RANDOH 

'v'AL 

READ 

L'ARPTR 

REM 



* indicates Level II Disk BASIC 
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Extended Utility Commsnds (mey use ell of nieinopy) 
BACKUP — duplicate en entire diskette 
fORMAT — prepare 3 dsts diskette 

AuxilliBry Utility ProdrsBis (msy use sll of meftory) 
TAPEDISK — copy 3 tape file to s disk file 
BISKDUMP/BAS — displsy s disk file 

SysteB CoBioiends (load below 5200 Hex) 

BASIC2 — Jump to Level II BASIC 

DEBUG — exBitiine snd slter registers snd ROM 

TRACE — display the PC register 


Library Commands 

AUTO — modify the power -up seouence 
ATTRIB — set the protection level on a file 


CLOCK 

COPY 

DATE 

DUMP 

KILL 

FREE 

LIB 

LIST 

LOAD 

PRINT 

PROT 

RENAME 

TIME 

VERIFY 


— display the system time on screen 

— duplicate a file 

— set the system date 

-- copy memory to a disk file 
-- delete a file 

— display the amount of free space on all drives 

— display all library commands 

— display a text file 

— load a machine language file 

“ list a text file on the line printer 

— change the protection of all non-system files 

— change a file's name 

— set the system closk 

“ have TRSDOS verify ell user disk writes 
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Level 

II 

Error Codes 


Code 


Abbrevielion 

Error 

1 


HF 

NEXT without FOR 

2 


SN 

Syntax error 

3 


RG 

RETURN without GOSUB 

4 


OD 

Out of date 

5 


FC 

Illegal function call 

6 


OM 

Overflow 

7 


OH 

Out of roeniory 

8 


UL 

Undefined line 

9 


BS 

Subscript out of range 

10 


HD 

Redifflensioned array 

11 


/O 

Division by zero 

12 


ID 

Illegal use of a direct coHiBiand 

13 


TH 

Type iiiisniatch 

14 


OS 

Out of string space 

15 


LS 

String longer then 255 characters 

16 


ST 

String for-Biule too complex 

17 


CN 

Can't CONT after END or EDIT 

18 


NR 

No RESUHE before end of progrefii 

19 


RW 

RESUHE without error 

20 


UE 

Unprintable error after using ERROR 

21 


HO 

Hissing operand 

22 


FD 

Bad file date 

23 


L3 

DisK BASIC only 

24- 

49 

not used 
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Error Codes 



DisK BASIC Error Codes 


Code 

Messsde 

Error- 

50 

FIELD OVERFLOW 

More then 255 bytes for 3 buffer 

51 

INTERNAL ERROR 

DOS or disk I/O fsult 

52 

BAD FILE NUHBER 

File number used without OPEN 

53 

FILE NOT FOUND 

Reed eitemeied on nonexistent file 

54 

BAD FILE NODE 

DisK I/O conflicts with OPEN fliOde 

55ir56 

not used 


57 

DISK I/O ERROR 

Error during date trsnsfer 

58-60 

not used 


61 

DISK FULL 

No more room 

62 

INPUT PAST END 

End of file reached during see^ ineut 

63 

BAD RECORD NUMBER 

Record number -^1 or ;>340 

64 

BAD FILENAME 

Invalid file specificetion 

65 

not used 


66 

DIRECT STATEMENT 

Attempt to LOADj RUN? or MERGE e 


IN FILE 

dete file 

67 

TOO MANY FILES 

Tried 49ih!. file on diskette 

68 

DISK WRITE- 

Write-ppotect notch wes covered 


PROTECTED 


69 

FILE ACCESS DENIED 

Wrong password 
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Index AND 4f 50 

ANSI Fiowcherts 167 
ANSI 166 
ASC 23 

ASCirfiles 130 
ASCII 23» 108» 118 
Accessing Direct Access Files 
193 

Accessing Seauenliel Files 
193 

Accessing e record 193 
Accounts receiveble file 
builder <Prog C8P1 ) 143 

Addition? very long (Prog 
C2P6) 25 

Ampersand (&) prefix 52 
Angled line (Prog C5P13) 87 

Anticipating User Responses 
155 

Apostrophe for REM 14 
Apple~II 9 
Arguments 26 
Arrays 13 
At ( ' ) symbol 75 


BASIC-PLUS (DEC) 10 
Benner printer (Prog C5P8) 

71 

Bargraphs 66 

Binary Seauence Search Tree 
(BSST) 213 
Binary Sorts 199 
Binary conversion (Prog C1P4) 


Binary operations 6 
Binary tree structure 124 
Bit comparison 5 
Blank Lines and Text 
Formatting 182 
Boolean operators 4 
Bouncing Dots 90 
Bouncing dots (Prog C5P16) 

92 

Bouncing dots computer art 
(Prog C5P17) 94 

Buffer description? sketch 
136 

Buffer 134? 143 
Building Direct Access Files 
189 

Building Seauential Files 
188 

Building 187 


CIOPIJ Poor program structure 

174 

C10P2t Fair program structure 

175 

C10P31 Good program structure 
175 

C12Pn Seouential file 
builder 183 

C12P2t Sesuential file of 
strings 188 

C12P3t Direct access file 
builder 191 
C12P4J Direct access in 
seauential order 193 
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C12P5: Direct eccess by 
hBshed Keys 196 
C12P6I ComPBrison of three 
sorts 202 

Ci2P71 Ststistics system 205 
CIPIJ LsrSest of 3 numbers 2 
C1P2J iBrSest of 3 numbers 3 
ClP3t Largest of 3 numbers 4 
C1P4J BinBry conversion 5 
C2P1J Random numbers 12 
C2P21 Questionneire enelysis 
15 

C2P3: Shuffling CBrds 18 
C2P4I Record eibum bBlsncing 
19 

G2P51 Reverse last and first 
n ame 23 

C2P61 t'ery long addition 25 
C3P11 Chart of various 
functions 30 

C3P2J Table? functions with 
TABS 32 

C3P31 Table? functions with 
PRINT USING 36 
C3P4t Uariable-sized output 
fields 37 

C3P5t Memory tester 41 
C4P11 Timing of operations? 

various types 46 
C5P101 Character graphics to 
maKe digits 82 
C5P10At Chapter heads 83 
C5Pin Diagonal line 85 
C5P12: Line? horizontal or 
vertical 86 
C5P131 Polar method for 
angled lines 87 
C5P141 Line? any angle? by 
Cartesian method 88 
C5Pi51 Circle? using sine and 
cosine 89 

C5P161 Bouncing dots 92 
C5P17t Bouncing dots computer 
art 94 

C5P181 LissaJous patterns 98 
C5Pi: Sine and cosine graph 
56 

C5P2t Enterprise graphic 56 
C5P31 Pipe graphic 61 
C5P4; Reinfall bargraph 66 


C5P5r Rainfall bar-graph? 
revised 67 

C5P6; Table-driven digit 68 
C5P7S Snoopy 70 
C5P81 Messages on screen or 
printer 71 

C5P9t Christmas tree 77 
C6P1J Demonstration of string 
functions 106 
C6P2t Reversal of names 107 
C6P3t Using INKEY$ for 
numeric variables 108 
C6P41 Flash a prompt while 
Keying in a string 109 
C6P5J Using LINE INPUT 110 
C6P6t Substitution within a 
string 111 

C6P7t Timing of arithmetic 
operations 113 
C6P8L Simple math using timed 
inputs 114 

C6P9T Stopwatch to lOOths of 
a second 115 

C7P11 Store a numeric matrix 
on tape 122 

C7P2t Geography euiz game 
125 

C7P3: Sort-merge of 
seGuential file 127 
C7P41 Renumber DisK BASIC 
programs 130 

C8P11 Direct access accounts 
receivable file builder 
143 

C8P21 Direct access file 
update 145 

C8P3t Message of the day 147 
C9Plt ChecK digit calculator 
160 

CHR$ 23? 76? 79 
CLEAR 76 
GLOAD 118 
CLOSE 120 
CSAUE 117 
CUD 141 
CVI 141 
CVS 141 

Card shuffling 18 
Cartooning 81 
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Chepier hesds (Prod C5P10A) 

83 

Chsrecler Graphics 75 
Chsrscier Set? TRS-SO 76 
ChBrecier drsphics to Bieke 
digits (Prod C5PiO ) 82 

Chari of various functions 
(Prog C3P1) 30 

Check digit calculation (Prog 
C9P1 ) 160 

Check digits 157 
Christffias tree (Prog C5P9) 

77 

Circle» using sine and cosine 
(Prog C5P15) 89 

Collision with wall 91 
CoBiBiends for Hata Files 120 
CoHumands for Prograni Files 
117 

Conversational Prosr aniBt i ng 
149 

Conversion of Constants 45 
Conversion of nusieric to 
string 140 

Conversion of string to 
numeric 141 
Cued input 29 


D*A. files (see Direct Access 
files) 193 
DATE 112 
DEFDBL 51 
DEFINT 51 
DEFSNG 51 
DEFSTR 51 
HEFUSR 103 
DIH 12 

Data transfer to disk? sketch 
135 

Decisions and Branching 1 
Deleting from D,A» files 197 
Diagonal line (Prog C5P11) 

85 

Dicej siHiulating throws of 
11 

Digit graph 68 
Digits with character 

graphics (prog C5P10 ) 82 


DiJkstra? Edsger 174 
Direct Access File Creation 
142 

Direct Access File Processing 
133» 144 

Direct access file builder 
(Prog C12P3) 191 

Direct access file update 
(Prog C8P2) 145 

Direct access in sceuentiai 
order (Prog C12P4 ) 193 

Direct access with hash 
addressing (Prog C12P5) 

196 

Discriminant 3 
Disk BASIC 52, 118, 154 
Disk Operating System 103 
DocuBientation 179 
Dots, Bouncing 90 
Double Precision Real 
Variables 45 
Double precision addition, 
timing 47 
Dummy arguments 26 


ELSE clause 3 
ENTER key 109, 146, 151 
ERL 153 
ERR 153 

Enterprise graphic (Prog 
C5P2) 58 

Exchange Sorts 199 
Exponentiation image 37 
Extended BASIC 2 
External Documentation 183 


FIELD 134 

File Manipulation Technioues 
187 

File update, direct access 
(Prog C8P2) 145 

Fill characters with PRINT 
USING 33 

Flashing a prompt (Prog C6P4) 
109 

Flowchart symbols, ANSI 168 


Index 
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Flowchsris QuicKsorl 201 
Fiowchartf Shell-HeIzner sort 
200 

Flowchart! all-disil input 

169 

Flowchart? statistics pacKaSe 

170 

Flowchart! structures 173 
Flowchart! syabolic 184 
Functions! user-defined 26 


GEOGRAPH record layout 123 
GET 137 

GOTO-less ProdraniBiind 174 
GOTO 1 

Geography ouiz danie (Prod 
C7P2) 125 

Graphic Codes 78 
Graphic to Binary Conversion 
78 

Graphind sine and cosine 
functions 55 
Graphind with tabs 55 


HELP 184 

Happy Hopi (Prod C5P17) 94 

Hash Addressind 189 
Help Files 184 
Hexedeciiftal Constants 52 
Hierarchy chart 176 
Histodr-BBiS 66 
Horizontal line 86 


IF-THEN-ELSE l! 171! 175 
IF-THEN 1 
IF 1 

INKEY$ 107! 151f 168 
INP 40 
INPUT # 121 

INSTR 105? 130 
I NT 50 

INyHAIN; Mein driver prodr bri 
215 

INVPRlOt Display selected 


record 236 
INVPRir Add items to 
inventory 216 
INVPR2t Traverse file? list 
in sorted order 219 
INOPRS; Record deletion 221 
INyF'Fl4t Access and upoace a 
record 224 
INVPR5: List records? 

physical order 227 
INVPR6: List deleted parts 
929 

INVPR7: Balance tree 230 
IN'v'PRSl List all files 234 
INUPR9t Delete a file 235 
Implicit conversion 48 
In-memory sortind 198 
Indentation 10? 11 
Index to prodrams in 
Inventory System 214 
Informind the User Durind 
Processind 162 
Input (file mode) 120 
Inteder Boolean Operations 
Only Rule 50 

Inteder Truncation? Otherwise 
Roundind Rule 50 
Inteder Oariables 44 
Inteder addition? timind 47 
Inteder to binary (Prod C1P4) 
5 

Internal Documentation 179 
Inventory System Application 
213 

Inventory system index 214 
Inventory system record 
description 214 
Inventory system? add items 
(ProdlNVPRl) 216 
Inventory system? balance 
tree (Prod INVPR7) 230 
Inventory system? delete a 
file (Prod INVPR9) 235 
Inventory system? delete 

records (Prod INVPR3) 221 
Inventory system? display 
selected record (Prod 
INVPRIO) 236 

Inventory system? list all 
files (Prod INUPR8) 234 
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Inventory sysienif list 
deleted peris tProd 
INypR6) 229 

Inventory systenty list in 
physicel order (Prod 
INypR5) 227 

Inventory systeBu list in 
sorted order (Prod IHypR2) 
219 

Inventory systeay aein driver 
(Prod INVHAIN) 215 

Inventory systeHiy record 
access end iipdete (Prod 
INypR4) 224 

Invocationy of s function 26 

Iteretion structure 171 


KILL 118y 120 
Keyy record 189 
Knuthy Doneld 199 


LEFT$ 22 
LEN 22 

LINE INPUT # 121 

LINE INPUT exBBiPles (Prod 
C6P5) 110 

LINE INPUT 109y 146y 151 
LOAD 118 
LOF 138 
LPRINT 2y 30 
LSET 134y 138 
Lerde errey prodr sbi (Prod 
C2P2) 15 

Lerdesi of 3 nuBibers (Prods 
ClPly ClP2y C1P3) 2y 3y 4 
LeBiniscetes 98 
LiBiBcons 98 

Line Printer Grsphics 55 
Line feed 10y 11 
Line nuBibersy drouped 183 
Liney eny endley by Certesien 
method (Prod C5P14) 88 

Liney horizon tel or verticsl 
(Prod C5P12) 86 

Links of 3 binary tree 124 
LissaJous fidures 98 


Lodical operetors 4 
Lodicel record 134 
Lons Uai'iabie NefBes- 
Lond addition (Prod C2P6) 25 


HEHORY SIZE messade 104 
HERGE 119 

MID$ for replacerfient 111 
HID$ 22y 105y Illy 130 
MKD$ 140 
MKI$ 140 
MKS$ 140 

Hefiiory Storade After Hixed 
Operations 49 

Hemory tester ( Prod C3P5 ) 41 

Henuy statistics systeni 205 
Henus 149y 151 
Hessade of the day (Prod 
C8P3) 147 

Messades on screen or printer 
(Prod C5P8) 71 

Microsoft 9y 43 
Mode of a file 120 
Modifyins IUA/files 197 
Modulus eleven check didits 
158 

Monte Carlo technioue 18 
Most Precise Operand Rule 49 
Multiple SiateBients on a Line 
9 


NOT 4y 50 

Nafiie reversal (Prod C2P5) 23 

NaBie reversal ( Prod C6P2 ) 

107 

No Inteder Division Rule 50 
NuBieric variable input with 
INKEY$ (Prod C6P3 ) 108 


ON ERROR GOTO 153 
ON-GOSUB 6 
ON~GOTO 6 
OPEN 120 
OR 4y 50 


Index 
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OUT 39 

Ociel ConslBnls 52 
Output (file iftode ) 120 

Overflow aree 190 


PDP~11 (DEC) 10» 11 
PEEK 405 115 
POINT 86 
POKE 411 815 85 
POS 105 
PRINT * 121 

PRINT #ri5 USING 122 
PRINT USING 5Pecifier65 table 
34 

PRINT USING5 fill characters 

38 

PRINT USINGS string 
specifiers 38 
PRINT USING 305 33 
PRINT 755 108 
PUT 1345 1395 189 
Patterns (Prog C5P18) 98 

Percent (X) sign for integer 
44 

Percent (X) sign for string 

39 

Phrase Flowcharts 167 
Physical record 134 
Pick-end-switch (Honte Carlo) 
technioue 18 

Picture Within ProgreHi 69 
Pipe graphic (Prog C5P3) 61 

Pipe temperatures 60 
Pixel Graphics 84 
Pixels 78 

Polar method for angled lines 
(Prog C5P13) 87 

Praise and Chastisement 160 
Primitive BASIC 1 
Process-time messages 162 
Program Comments 180 
Program Planning 166 
Program siructure5 had (Prog 
ClOPl) 174 

Program 5tructiire5 fair (Prog 
C10P2) 175 

Program 5tructure5 good (Prog 
C10P3) 175 


Programming Structures 171 
Pseudo random number- 
gen ere tors 11 


Quadratic eouetion 3 
Questionnaire analysis (Prog 
C2P2) 15 

Quicksort flowchart 201 


RAH 103 
RANIiOH 11 
REH 179 
RESET 855 90 
RESUME 153 
RIGHT$ 225 106 
RND 105 11 
ROM 103 
RSET 1345 138 
RUN 118 

Rainfall bargraph (Prog C5P4) 
66 

Rainfall bBrgrBph5 revised 
(Prog C5P5) 67 

Random (file mode) 120 
Random numbers (Prog C2P1) 

12 

Random temperature settings 
in pipe 64 
Real Variables 44 
Real number addition5 timing 
47 

Record album balancing (Prog 
C2P4) 19 

Renumbering Disk BASIC 

programs (Prog C7P4 ) 130 

Reverse last and first name 
(Progs C2P55 C6P2) 235 107 

Roses5 computer-drawn 98 
Run Book 184 


SAVE 117 
SET 845 90 
SGN 8 
STR$ 24 
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STRINGf 75 

Scientific notation imase 38 
Screen overflow 31 
Sector buffer 134 
Selection structure 171 
Seeuence structure 171 
Seouential Access File 
Processing 117 
Seouentiai File INPUT and 
PRINT 121 

Seouentiai file builder (Prod 
C12P1 ) 188 

Seouential file coBimancisj 
table 122 

Seauentiel file of strings 
(Prog C12P2) 188 

Seouential files? building 
188 

Shell sort 199 
Shell-Metzner sort 127? 199 
Shuffling cards (Prog C2P3) 

18 

Sine and cosine graeh (Prog 
C5P1) 56 

Single Precision Real 
Variables 44 
Si>;-bit greehic code 78 
Snoopy (Prog C5P7 ) 70 

Song selection (Prog C2P4) 

19 

Sort? Shell-Hetzner 127 
Sort-aerge of seauential file 
(Prog C7P3) 127 

Sorting algorithffis 199 
Sorting tiae table 203 
Sorting 197 

Sorts coaparison (Prog C12P6) 
202 

Statistics systea (Prog 
C12P7) 205 

Statistics systea aenu 205 
Statistics systea structure 
chart 204 

Stopwatch (Prog C6P9 ) 115 

Storing a nuaeric aatrix on 
tape (Prog C7P1 ) 122 

String Functions 22 
String function deaonstration 
( Prog C6P1) 106 

String specifiers with PRINT 


USING 39 

Structure chart? Statistics 
System 204 

Structure chart? direct 
access5- f'j.It? builder 190 
Structure chart 176? 183 
Structured Prograaaing 165 
Subscripted Variables 12 
Substitution? within a string 
(Prog C6P6) 111 

Symbolic flowchart 184 


TAB 24 

TAb 1 e-Dr i ven P i c tur e 68 
TIHE$ 112 
TRSDOS BASIC 105 
TRSBOS 103? 112? 118? 134 
Table? PRINT USING specifiers 
34 

Table? functions with PRINT 
USING (Prog C3P3> 36 

Table? functions with TABs 
(Prog C3P2) 32 

Table? number of records that 
can be sorted in memory 
198 

Table? seauential file 
commands 122 
Table-driven Digit (Prog 
C5P6) 68 

Tabulation Codes 77 
The Character Set 76 
Thermal gradient graphic 60 
Timed inputs for simple math 
(Prog C6P8) 114 

Timing of arithmetic 

operations (Prog C6P7 ) 113 

Timing of operations? table 
47 

Timing of operations? various 
types (Prog C4P1) 46 

Timing to 100th of a second 
(Prog C6P9) 115 

Top-down Programming 176 
Trailing zeros? printing of 
36 

Type dec1era tion char acter 
44 
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UNTIL ilerBlion s. true lure 
175 

USRn 103 
User ProRirls 149 
User iiiBnuBi 184 
User responses 155 
User-ciefined funciiori 26t 
107 

Uses for Graphics ChsrBclers 
79 

Usind Heniory to Hold the 
Picture 60 


UAL 24 
VARPTR 53 

Usrisble Tspesj iBbie of 46 
VBrisble Types 44 
Uerisble-sized output fields 
(Prog C3P4) 37 

Uerticel line 86 
Very long Bddition (Prod 
C2P6) 25 


Uslif collision with 91 
Windowboxes 181 
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An exciting new breed of COMPUTER GUIDEBOOKS designed to help you work SMARTL 
HARDER: 


THE MICROCOMPUTER POWER SERIES 


GUIDE TO SYSTEMS 
APPLICATIONS 

John P. Grillo 

J. D. Robertson 

288 pages/ 61 programs 

$17.95 

This book gives an 
amazingly clear 
presentation of the 
complete micr ocomputer 
system. It begins at an 
elementary leve’ and builds 
your knowledge of 
hardware and software to 
the level necessary to 
understand the complexities 
of microcomputer systems 
and their applications. Its 
unique APPLICATIONS 
approach stresses 
programs (rather than the 
hardware) and how they 
are created to build 
applications systems. 

This book includes 61 
programs that have been 
tested on a TRS-80. With a 
minimum of conversion all 
programs can be used on 
other systems such as PET, 
Apple II, etc. Some of the 
programs are menu display 
manager, mailing list 
system, Sheli-Metzner sorts, 
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many, many more. 



TECHNIQUES OF BASIC 

John P. Grilfb 

J. D. Robertson 

272 pages/ 61 programs 

$18.95 


This book will free you 
from most of the 
restrictions of standard 
BASIC by letting you 
progress step by step from 
very elementary to more 
sophisticated features of 
BASIC. This book 
demonstrates techniques 
that are as USABLE as 
they are fascinating. 

This hi ok Includes 61 
differ* <siit programs in 
TRS-80 Level !I BASIC 
covering such diverse 
topics as simple data 
analysis, conversational 
statistics, isotherm 
graphing, text processing, 
line renumbering, banner 
printing, message 
managing, error trapping, 
realtime stopwatch. Shed 
sorts. Quicksort, Monte 
Carlo techniques, binary 
search trees and more. 


INTRODUCTION TO 

GRAPHICS 

John P. Grillo 

J. D. Robertson 

144 pages/ 38 programs 

$15.95 

This Guidebook was written 
for three different 
audiences: 1) The novice 
who has just bought or 
been introduced to the 
personal computer and who 
wants to learn how to 
control what is being done 
on the screen ... 2) The 
more experienced 
programmer who is Just 
getting into computer 
graphics . . . and 3) The 
individual, possibly an 
educator, who knows one of 
the best ways to introduce 
YOUNGSTERS tc 
computers is via the 
fascinating GRAPHICS 
route. 

The 38 graphic 
geiieratloii programs 
range from extremely 
simple to a moderately 
advanced level of 
sophistication. There's a 
goldmine of ideas for 
demonstrating the many 
exciting graphic 
capabilities of the TRS-80 
and the illustrations are 
truly ingenious. 

The programs are short 
enough to key in quickly 
and are excellent examples 
of the techniques being 
discussed. Altogether a 
great source book of ideas 
for fun things that will 
arouse and maintain 
interest and inspire the 
desire to progress. 
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John P. Grillo 

J. D. Robertson 

208 pages/ 48 programs 

$16.95 

Designed for the 
intermediate to advance 
programmer, this is the 
Guidebook that really 
SHOWS you how to use 
your computer more 
effectively. The authors' 
overall goal is to 
demonstrate and exf)iain 
the many ways you can 
manage data . . . both in 
memory and on disk or 
tape files. Included are 
some of the most popular 
methods (such as list and 
array processing) and some 
less well known, but very 
powerful methods (such as 
queue, stack and tree 
processing). Every 
technique is illustrated in a 
simple, straightforward 
manner with BASIC 
programs. 

Included are full listings 
and output for 48 
prc»gram9. These programs 
illustrate techniques such 
as sorting, ISAM file 
creation and upkeep, linked 
list file management, 
generalized information 
system with a binary 
sequence search tree, 
automated code generation, 
master file maintenance 
with transaction file 
merging and multilist file 
management system. 
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